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Piraten,  Piraten 

Softwarepiraten  nannte  man 
bislang  Leute,  die  fremde  Pro¬ 
gramme  ohne  Genehmigung  ko¬ 
pieren  und  Weiterverkäufen. 
Die  Inhaber  einer  Scheinfirma 
namens  R  +  S  (Adresse:  Ein  Post¬ 
fach  in  Berlin)  haben  eine  neue 
Art  von  Softwarepiraterie  erfun¬ 
den:  Sie  verschickten  serienwei¬ 
se  Abmahnbriefe  an  Inserenten, 
die  in  Kleinanzeigen  Software 
zum  Kauf  oder  Tausch  anboten; 
behaupteten,  daß  es  sich  dabei 
um  Raubkopien  handle  und  ver¬ 
langten  Unterzeichnung  einer 
Unterlassungserklärung  sowie 
Begleichung  einer  Rechnung  für 
die  ihre  angeblichen  Kosten  von 
300  Mark  —  in  bar  an  die  Post¬ 
fachadresse  zu  schicken.  Sie 
hofften,  ein  Geschäft  mit  der  Un¬ 
wissenheit  oder  dem  schlechten 
Gewissen  der  Adressaten  zu 
machen.  Keine  Sorge:  Um  diese 
»Firma«  kümmert  sich  schon  der 
Staatsanwalt. 

Die  Reaktion  auf  diese  Briefe 
zeigten  aber  häufig,  wie  unsi¬ 
cher  die  Empfänger  waren,  was 
sie  eigentlich  dürfen  und  nicht 
dürfen.  Dabei  ist  das  Grundprin¬ 
zip  seit  langem  klar:  Ein  Pro¬ 
gramm,  das  ein  anderer  ge¬ 
schrieben  hat,  darf  man  nur  mit 

—  zweckmäßigerweise  schriftli¬ 
cher  —  Genehmigung  des  Au¬ 
tors  kopieren  und  Programme, 
die  von  vornherein  zum  Kopie¬ 
ren  bestimmt  sind,  gibt  es  zwar 

—  sie  sind  aber  nicht  gerade 
häufig.  Auch  solche  Programme 
dürfen  in  der  Regel  nicht  kom¬ 
merziell  weiterverwertet  (in  der 
Praxis  heißt  das  zumeist:  nicht 
weiterverkauft)  werden.  Sie  dür¬ 
fen  auch  nicht  das  64er  oder  ei¬ 
ne  andere  Zeitschrift  oder  ein 
Buch  auf  den  Fotokopierer  legen 
und  die  Kopien  regelmäßig  im 
Benutzerclub  verteilen  oder  ei¬ 
nen  Datenträger  mit  den  abge¬ 
tippten  Programmen  Weiterver¬ 
käufen,  So  einfach  ist  das. 

Michael  Pauly,  Chefredakteur 
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AjMiJj^teser 

Lieber  Leser,  Sie  halten  nunmehr  mit  der 
Ausgabe  8/84  das  fünfte  64'er  —  Magazin  für 
Computer-Fans  —  in  Händen.  Dies  soll  uns,  der 
Redaktion,  ein  Anlaß  sein,  um  eine  erste  Bilanz  zu  ziehen. 


Der  Commodore  64  hat  im 
Verbund  mit  seinem  Vor¬ 
gänger  dem  VC  20  mittler¬ 
weile  einen  Marktanteil  von 
über  50  Prozent  bei  den 
Heimcomputern  erreicht. 
Diese  Entwicklung  war  An¬ 
fang  dieses  Jahres  in  der 
Tendenz  bereits  abzusehen. 
Die  entsprechende  Reaktion 
auf  diese  Entwicklung  war 
die  Absicht,  eine  eigene 
Zeitschrift  für  diese  beiden 
Computer  zu  machen.  Nach 
dreimonatigen  konzeptionel¬ 
len  Arbeiten  mit  nur  zwei  ak¬ 
tiven  Redakteuren  war  die 
64'er,  Ausgabe  4/84  fertig. 

Unser  Team  wurde  wäh¬ 
rend  dieser  Zeit  um  zwei  wei¬ 
tere,  versierte  Fachleute  ver¬ 
stärkt.  Der  momentan  statt¬ 
findende  Arbeitskampf  der 
Druck-  und  Metallindustrie 
um  die  35-Stunden-Woche 
läßt  uns  nur  müde  lächeln. 
Wir  kämpfen  um  die  70-Stun- 
den-Woche.  Unser  momenta¬ 
nes  Arbeitspensum  beträgt 
75  bis  80  Stunden  pro  Woche. 
Sie  werden  sich  fragen,  war¬ 
um  dieser  Arbeitsaufwand? 
Einige  Zahlen  sollen  dies 
veranschaulichen.  Wir  be¬ 
kommen  pro  Woche  etwa  100 
Programmeinsendungen 
und  ungefähr  die  Hälfte  an 
Briefzuschriften  pro  Tag.  Da¬ 
bei  sind  die  persönlichen  Be¬ 
suche  von  Lesern  und  Pro¬ 
grammentwicklern  in  der 
Redaktion  nicht  mitgerech¬ 
net.  Die  Bearbeitung  der 
Programme,  die  Beantwor¬ 
tung  der  Briefe  und  der  per¬ 
sönlichen  Probleme  per  Te¬ 
lefon  nimmt  entsprechend 
Zeit  in  Anspruch,  Auch  unse¬ 
re  beiden  Schwesterzeit¬ 
schriften  Computer  persön¬ 
lich  und  Happy-Computer 


wollen  von  uns  mit  Commo- 
dore-Programmen  und  -Arti¬ 
keln  versorgt  werden.  »Es 
gibt  viel  zu  tun, ...«. 

Warum  nun  dieser  Brief  an 
die  Leser?  Wir  wollen  uns 
nicht  beschweren  über  die 
unheimliche  Resonanz,  die 
unserer  64’er-Magazm  her¬ 
vorgerufen  hat.  Im  Gegen¬ 
teil,  wir  sind  stolz  darauf, 
zeigt  es  uns  doch,  daß  wir  auf 
dem  richtigen  Weg  sind. 
Dennoch  sollen  im  folgen¬ 
den  einige  Punkte  aufge- 
L  hrt  werden,  die  der  Redak¬ 
tion  die  Arbeit  und  dem  Le¬ 
ser  die  Mitarbeit  an  unserer 
Zeitschrift  erleichtern  sollen. 

Neun  kleine 
Negeriein... 

1.  Die  Mitmach-Karten  im 
64'er  haben  sich  als  das  er¬ 
wiesen  was  sie  sein  sollten: 
ein  Forum  für  die  Leser,  sich 
ihre  Probleme  von  der  Seele 
zu  schreiben.  Für  uns  sind 
sie  ein  wertvoller  Hinweis 
dafür,  wo  Sie  der  Schuh 
drückt.  Die  ausgefüllte  Ru¬ 
brik  »Ich  wünsche  mir  für  die 
nächsten  Hefte  folgende 
Themen:«  ist  ein  wichtiger 
Beitrag,  was  wir  in  den  zu¬ 
künftigen  Ausgaben  unbe¬ 
dingt  berücksichtigen  müs¬ 
sen.  So  wird  zum  Beispiel  das 
am  meisten  gewünschte  The¬ 
ma,  ein  Maschinensprach- 
Kursus,  ab  der  nächsten  Aus¬ 
gabe  in  Angriff  genommen. 
Ein  Musikkurs  wird  eben¬ 
falls  bald  folgen. 

Mit  dem  Teil  »Ich  stehe  vor 
folgendem  Problem:«  kön¬ 
nen  Sie  Fragen  an  die  Re¬ 
daktion  stellen.  Es  ist  uns  da¬ 
bei  aber  nicht  möglich,  alle 


Fragen  zu  beantworten.  Zum 
einen  handelt  es  sich  oft  um 
sehr  ausgefallene  Themen, 
wie  zum  Beispiel  der  An¬ 
schluß  eines  »Exoten- 
Druckers«  an  den  C  64.  Zum 
anderen  werden  aber  auch 
viele  Fragen  durch  Artikel 
oder  Programme,  die  wir  be¬ 
reits  veröffentlicht  haben 
oder  noch  werden  in  der  ei¬ 
nen  oder  anderen  Form  ge¬ 
klärt. 

»In  dieser  Ausgabe  war 
besonders  gut«  und  »Des¬ 
halb  meine  Meinung  ..«  wer¬ 
den  zur  Analyse  der  erschie¬ 
nen  Ausgaben  verwendet. 
Diese  Analyse  liefert  wert¬ 
volle  Hinweise,  was  gefallen 
hat  oder  nicht,  oder  wo  noch 
Verbesserungen  anzubrin¬ 
gen  sind. 

2.  Wir  haben  mittlerweüe 
vielfältige  Möglichkeiten  Ihr 
Listing  zu  verwerten.  Zum  ei¬ 
nen  natürlich  die  Veröffentli¬ 
chung  in  unserer  Zeitschrift. 
Bei  sehr  guten  Programmen 
kann  die  Markt  &  Technik 
Verlag  Aktiengesellschaft 
das  Produkt  sogar  in  den 
Vertrieb  von  Happy  Software 
aufnehmen.  Ferner  besteht 
die  Möglichkeit,  daß  Ihr  Li¬ 
sting  als  Teil  eines  Buches 
veröffentlicht  werden  kann. 

3.  Uns  erreichen  auch  im¬ 
mer  wieder  Anfragen,  ob 
und  in  welcher  Form  abge¬ 
druckte  Programme  auf  ei¬ 
nem  Datenträger  zu  erste¬ 
hen  sind.  Wir  haben  bereits 
in  der  Ausgabe  7/84  (zu¬ 
nächst  für  die  Ausgaben  4 
und  5)  begonnen  alle  im 
64’er  abgedruckten  Pro¬ 
gramme  auf  Kassette  anzu¬ 
bieten.  Der  Verkauf  auf  Dis¬ 
kettewird,  zum  Selbstkosten¬ 
preis  versteht  sich,  dem- 
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nächst  anlaufen.  Dieser  re¬ 
gelmäßige  Leserservice  soll 
das  Eintippen  der  Program¬ 
me  mit  den  damit  verbunden 
Fehlerquellen  für  Interes¬ 
sierte  erleichtern. 

4.  Eine  Unmenge  an  Zu¬ 
schriften  erreicht  uns  zu  an¬ 
geblich  nicht  lauffähigen 
Programmen.  Alle  Listings, 
die  im  64 'er  abgedruckt  wor¬ 
den  sind,  wurden  von  uns  ge¬ 
prüft  und  für  gut  befunden. 
Dennoch  kann  es  von  Fall  zu 
Fall  Vorkommen,  daß  sich 
Übertragungsfehler  ein¬ 
schleichen.  Bestes  Beispiel 
ist  der  nicht  gedruckte 
»Linkspfeü«  im  Listing  von 
Quicktext,  Sollten  Sie  in  der 
Rubrik  »Fehlerteufelchen« 
keine  Korrektur  zu  einem 
Programm  finden,  so  ist  das 
Listing  100  prozentig  lauffä¬ 
hig.  Wie  die  Erfahrung  ge¬ 
zeigt  hat,  lassen  sich  fast  alle 
Probleme  auf  Tippfehler 
oder  Nichtbeachtung  der 
Anleitung  reduzieren.  Wir 
drucken  nur  ausgesuchte 
Programme  ab.  Diese  ent¬ 
halten  dann  fast  immer  eine 
sehr  große  Anzahl  von  DATA- 
Zeilen.  Gerade  hier  ist  natür¬ 
lich  die  Wahrscheinlichkeit 
eines  falsch  eingegebenen 
Datums  sehr  hoch.  Auch 
nach  einer  drei-  fünf-  oder 
zehnmaligen  Überprüfung 
überliest  man  seine  eigenen 
Fehler  immer  wieder.  Bitte 
schreiben  oder  rufen  Sie  nur 
an,  wenn  Sie  absolut  sicher 
sind,  daß  in  dem  Programm 
Fehler  sind. 

Es  tauchen  aber  oft  bereits 
Schwierigkeiten  beim  Eintip¬ 
pen  der  Programme  auf.  So 
stehen  manche  Anfänger 
ratlos  vor  Zeilen  mit  mehr  als 
80  Zeichen  oder  können  dies 
und  jenes  Steuerzeichen 
nicht  eingeben.  Wir  können 
dem  Leser  leider  nicht  das 
intensive  Studium  des  Hand¬ 
buchs  (zum  Beispiel  Anhang 
D)  abnehmen.  Des  weiteren 
sollte  natürlich  auch  die  An¬ 
leitung  zu  dem  Programm 
aufmerksam  gelesen  wer¬ 
den.  Ein  Listing  einzutippen 
das  nur  unter  Simons  Basic 
läuft,  ohne  aber  diese 
Spracherweiterung  zu  besit¬ 
zen  kann  nicht  zum  Erfolg 
führen. 

Beachten  Sie  in  dieser  Hin¬ 


sicht  auch  unsere  Tips  zur 
Fehlersuche  in  Programmen 
(64'er,  7/84,  Seite  66). 

Speziell  an  die  Einsender 
von  Programmen  mit  einem 
überwiegenden  Anteil  an 
Datazeilen.  Bitte  bauen  Sie  in 
Ihr  Programm  unbedingt 

Checksummen-Prüfungen 
ein.  Diese  sollten  sich  nicht 
nur  auf  eine  Gesamt-Check- 
summe  beschränken,  son¬ 
dern  den  möglichen  Fehler 
lokal  eingrenzen  helfen. 

5.  Manche  Leser  finden 
die  Beiträge  im  64'er  als  zu 
speziell,  zu  fachorientiert 
und  nur  dem  Profi  zugäng¬ 
lich,  defacto  für  den  Laien 
nicht  verwertbar.  Die  Profis 
betrachten  wiederum  ande¬ 
re  Artikel  als  zu  wenig  in  die 
Tiefe  gehend  und  informativ 
für  ihre  Zwecke.  Dieser  Pro¬ 
blematik  bei  der  Auswahl 
der  Themen  sind  wir  uns 
durchaus  bewußt.  Wir  wol¬ 
len  aber  ein  Magazin  sein, 
das  sowohl  dem  Anfänger 
als  auch  dem  Fortgeschritte¬ 
nem  einiges  bietet.  Dadurch 
ergibt  sich  eine  Art  Zweitei¬ 
lung  unserer  Beiträge.  So¬ 
wohl  der  Einsteiger  in  die 
Computerei  (mit  dem  C  64 
und  YC  20)  als  auch  der  Kön¬ 
ner  sollen  durch  das  64'er 
Hilfestellung  erfahren.  Ge¬ 
rade  bei  unseren  Kursen 
zeigt  sich  dies  besonders 
deutlich.  Hier  ist  wirklich  für 
jeden  etwas  dabei. 

6.  Einige  Leser  beschwe- 


Ein  neues  Gesicht 
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ren  sich  auch,  daß  in  einem 
Magazin  mit  dem  Namen 
64’er  —  zumindest  zuviele  — 
VC  20-Programme  abge¬ 
druckt  werden,  andere  sind 
gerade  der  gegenteiligen 
Auffassung.  Der  VC  20  ist  der 
kleine  Bruder  vom  C  64  und 
wird,  solange  er  in  großen 
Stückzahlen  auf  dem  Markt 
ist,  auch  von  uns  mit  Beiträ¬ 
gen  bedacht.  Der  Titel  unse¬ 
rer  Zeitschrift  bedeutet  also 
nicht,  daß  wir  uns  aus¬ 
schließlich  mit  dem  Commo- 
dore  64  befassen.  Dadurch 
lassen  sich  auch  die  zukünfti¬ 
gen  Heimcomputer  von 
Commodore  einbinden. 

7.  Gefordert  wird  auch  oft 
die  Umschreibung  der  Pro¬ 
gramme  für  den  VC  20  oder 
den  C  64.  Dies  haben  wir  bis¬ 
her  wegen  des  erheblichen 
Platzbedarfs  für  ein  und  das¬ 
selbe  Listing  vermieden.  Le¬ 
ser,  die  Programme  selbst 
umschreiben  möchten,  sei¬ 
en  auf  den  Artikel  in  der 
64’er,  Ausgabe  7,  Seite  52 
verwiesen. 

8.  V:  haben  gefragt, 

warum  wir  bei  den  Software- 
Tests  keine  festen  Bewertun¬ 
gen  mit  Nummern  oder 
Buchstaben  einführen.  Dazu 
folgendes;  jedes  Produkt, 
das  von  uns  getestet  wird,  ist 
es  auch  wert.  Nur  gute  Hard- 
oder  Software  wird  von  uns 
besprochen  und  erhält  ent¬ 
sprechenden  Raum  im  64'er. 
Der  Markt  wird  monentan 
von  Produkten  überflutet, 


Wo  liegen  nun  die  Verheer 

srrL2um  Äst 

3« 

genung  (zumindest  beim  r 

im  Maßstab  ,nal?ezu 

«■h 

J^gvonliteS^aggf 


und  wir  wollen  nur  das  Beste 
vorstellen.  Vergleichende 
Bewertungen  mit  abschlie- 
ßendenen  Zahlen  sollen  der 
Objektivität  dienen,  sind  al¬ 
lerdings  zu  oft  das  Ergebnis 
einer  subjektiven  Beurtei¬ 
lung.  Deshalb  verzichten  wir 
darauf,  liefern  Fakten  und 
persönliche  Meinungen, 
überlassen  es  aber  anson¬ 
sten  dem  mündigen  Leser 
sich  ein  Urteil  zu  bilden,  wel¬ 
ches  Produkt  nun  für  seinen 
speziellen  Anwendungsfall 
am  besten  geeignet  ist. 

9.  Für  alle  Leser  die  erst 
jetzt  auf  das  64'er  gestoßen 
sind,  gibt  es  eine  traurige 
Nachricht:  alle  Ausgaben  4 
und  5  sind  vergriffen.  Nach¬ 
bestellungen  haben  also  kei¬ 
nen  Zweck  mehr.  Artikel 
oder  Programme  die  Sie  in¬ 
teressieren  müssen  Sie  sich 
also  bei  Freunden  oder  Be¬ 
kannten  besorgen,  die  diese 
»Raritäten-64'er«  besitzen.  Es 
ist  uns  leider  nicht  möglich 
einzelne  Beiträge  als  Kopie 
zu  verschicken. 

Diese  Ausführungen  sol¬ 
len  Sie  nicht  abschrecken, 
weiterhin  Programme,  Arti¬ 
kel,  Fragen  und  Meinungen 
an  uns  zu  senden.  Wir  legen 
sehr  großen  Wert  auf  einen 
positiven  und  konstruktiven 
Dialog  mit  unseren  Lesern. 
Um  Verständnis  wäre  noch 
zu  bitten,  bei  den  doch  recht 
langen  Bearbeitungszeiten. 
Wir  arbeiten  daran  —  12 
Stunden  am  Tag,  die  ganze 
Woche  durch.  (aa) 
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Zunächst  soll  vorausge¬ 
schickt  werden,  daß  sich 
die  folgenden  Produktvor¬ 
stellungen,  mit  Zeit-,  Händ¬ 
ler-  und  Preisangaben  haupt¬ 
sächlich  auf  den  amerikani¬ 
schen  Markt  beziehen.  Dort 
werden  die  meisten  Pro¬ 
gramme  und  angekündigten 
Hardwareerweiterungen 
gegen  Ende  des  Sommers 
oder  gar  erst  im  Herbst  lie¬ 
ferbar  sein.  Welchen  Wert 
hat  dies  nun  für  den  europäi¬ 
schen  und  speziell  für  den 
deutschen  Anwender?  Nun 
er  ist  zunächst  darüber  infor¬ 
miert,  welche  neuen  Produk¬ 
te  demnächst  auf  den  deut¬ 
schen  Markt  kommen  wer¬ 
den,  und  kann  daraus  Hilfen 
für  seine  Kaufentscheidung 


net  sein),  zeigen  keine  ther¬ 
mische  Überlastung  und  las¬ 
sen  sich  sowohl  über  den  se¬ 
riellen  als  auch  über  den  pa¬ 
rallelen  Bus  (User-Port, 
IEEE-kompatibel;  also  auch 
für  die  größeren  System  ge¬ 
eignet)  betreiben.  Der  Preis: 
399  beziehungsweise  695 
Dollar. 

Ein  Einzel-Laufwerk,  daß 
bis  zu  zehnmal  schneller  ist, 
bietet  Concorde  mit  dem 
C-321P  (Bild  2)  für  389  Dollar. 
Dieses  Laufwerk  ist  aller¬ 
dings  nur  über  den  User-Port 
zu  betreiben.  Beachtenswert 
ist  ein  Jahr  Vollgarantie. 

Speziell  für  den  seriellen 
Bus  wurde  das  Einzel- 
Laufwerk  Commander  II  von 
Telesys  entwickelt.  Die  Zei¬ 


Bild  1.  Die  Altemativ-Laufwerke  von  MSD, 
Super  Disk  Drive  I  und  II, 


beziehen.  Leute  mit  Bezie¬ 
hungen  besorgen  sich  diese 
Produkte  aber  auch  gleich 
direkt  aus  den  USA.  Genug 
der  Vorrede,  was  gab  es 
Neues? 

Da  wären  zunächst  Floppy- 
Laufwerke  als  Alternative 
zum  VC  1541,  ein  Thema  das 
sicherlich  vielen  förmlich  un¬ 
ter  den  Fingernägeln  brennt. 
Von  MSD  Systems  gibt  es  die 
beiden  Einzel-  und  Doppel- 
Laufwerke  MSD  Super  Disk 
Drive  I  und  II  (Bild  1).  Forma¬ 
tieren,  Kopieren  und  Verifi¬ 
zieren  benötigen  weniger  als 
zwei  Minuten,  das  ist  also  20 
mal  schneller  als  auf  der  VC 
1541.  Die  beiden  Laufwerke 
haben  vier  beziehungsweise 
sechs  KByte  Pufferspeicher 
(das  bedeutet,  mehr  Files 
können  zur  selben  Zeit  geöff¬ 


ten  liegen  in  derselben  Grö¬ 
ßenordnung  wie  bei  der  VC 
1541.  Dieses  Laufwerk  soll 
sich  aber  besonders  durch 
die  hohe  Zuverlässigkeit 
vom  Orginal-Laufwerk  un¬ 
terscheiden,  und  hat  eben¬ 
falls  ein  Jahr  Garantie.  369 
Dollar  kostet  der  Comman¬ 
der  II. 

Superfarben 

Einen  neuen  Commodore- 
kompatiblen  Farbdrucker 
hat  Okidata  mit  dem  Okima- 
te  10  (Bild  3)  vorgestellt.  Die¬ 
ser  Thermo-Matrixdrucker 
bringt  im  Einfarben-Modus 
bis  zu  136  Zeichen  in  eine  Zei¬ 
le  mit  einer  Druckgeschwin¬ 
digkeit  von  bis  zu  60  Zeichen 
in  der  Sekunde.  Einen  Bei¬ 
spielausdruck  der  brillian- 


III  8 

sjst 

gfis. 


Bild  2.  Das  Laufwerk  C-321P  von 
Concorde  für  389  Dollar  ist  bis  zu  zehnmal 
schneller  als  die  Floppy  VC  1541. 


ten  Wiedergabe  mit  allen 
auf  dem  C  64  möglichen  Far¬ 
ben  zeigt  Bild  4. 

Auch  Epson  bringt  mit  dem 
160  CPS  (  characters  per 
second)  schnellen  JX-80 
Drucker  Farbe  in  den  Aus¬ 
druck.  Der  JX-80  wird  mit 
der  obligaten  Centronics- 
Schnittstelle  rund  1500  Dol¬ 
lar  kosten. 

Für  die  Ungeduldigen  bie¬ 
tet  Telesys  einen  99  Dollar 
teueren  Drucker-Puffer  Tur- 


boprint/GT  (zu  erkennen  im 
Bild  1)  mit  wahlweise  16  (99 
Dollar)  oder  32  (129  Dollar) 
KByte  Speicher  für  die  Ver¬ 
bindung  von  Commodore  64 
mit  Centronics-Druckern  an. 
Damit  lassen  sich  auch  alle 
Grafikzeichen  des  C  64 
übertragen. 

Speziell  für  die  Erstellung 
von  hochauflösenden  Grafi¬ 
ken  wurde  das  Super  Sketch 
(Bild  5)  von  Personal  Periphe¬ 
rais  entwickelt.  Es  handelt 


Ausgabe  8/August  1984 

64er-online.net 


Die  »Consumer 
Electronic  Show«  findet 
jedes  Halbjahr  in 
den  USA  statt.  Auf 
der  »Summer 
CES«  in  Chicago 
wurde  ein  Phänomen 
besonders  deutlich,  Bil. 

die  Dominaz  des  Farb-Th^o^cZro>- 

Commodore  64  auf  dem  Heimcomputer-  lmate  10- 
Markt.  Software  und  kein  Ende  war  die  Devise.  Dabei  wurde 
fast  jede  neue  Programm-Entwicklung  zunächst  auf 
dem  C  64  vorgestefit  und  auf  anderen  Computern  zu  einem 
späteren  Zeitpunkt  in  Aussicht  gestellt.  Aber  auch  bei 
aer  Hardware  gab  es  für  den  C  64  einiges  an  Neuigkeiten. 


Bild  4.  Dieser  Ausdruck  wurde 

mit  dem  Okimate  10  von  Okidata  in  Verbindung  mit  dem  C  64  erstellt. 


sich  dabei  um  eine  Kombina¬ 
tion  von  Grafiktablett  und 
»CAD-Eingabetisch«.  Die 
Übermittlung  der  Zeichen¬ 
koordinaten  erfolgt  nicht 
durch  eine  sensitive  Fläche, 
sondern  mit  Hilfe  eines  be¬ 
weglichen  Plastikarms.  Die 
Auflösung  beträgt  160  x  200 
Punkte  und  der  Preis  60  Dol¬ 
lar.  Beachtenswert  ist  die  rei¬ 
che  Auswahl  an  Software,  wie 
beispielsweise  der  Master 
Home  Planer  für  die  schnelle 
Planung  von  Gebäudegrund¬ 
rissen  und  Zimmereinrich¬ 
tungen  oder  die  Musik  Box 
zum  Komponieren  auf  dem 
Grafiktablett. 

In  dieselbe  Bresche  wie 
das  Koala  Pad  versucht  auch 
der  Digitiser  (Bild  6)  von  dem 
Drucker-  und  Expansionher¬ 
steller  Cardco  zu  schlagen. 


Mit  etwas  besser  Auflösung 
aber  mit  weniger  Software. 
Koala  Technologies  selbst  ist 
mit  seinen  Muppet  Learning 
Keys  (Bild  7)  in  Richtung  »Ver¬ 
einfachung  der  Eingabe  für 
Kinderhände«  gegangen. 
Dieses  Eingabemedium  für 
Kinder  im  Alter  zwischen 
drei  und  sechs  Jahren  soll  de¬ 
nen  das  Alphabet,  die  Zah¬ 
len,  die  Farben  und  Formen 
für  80  Dollar  näherbringen. 


Mit  Licht  arbeiten 


Einen  Schwerpunkt  bei 
den  neuen  Produkten  stell¬ 
ten  die  Präzisions- 
Lichtgriffel  dar.  Für  nicht  we¬ 
niger  als  250  Dollar  ist  der 
Gibson  Lichtgriffel  zu  haben 
(die  Vermarktung  erfolgt 


durch  Koala).  Dieser  doch 
recht  hohe  Preis  schließt  je¬ 
doch  zwei  Disketten,  die  mit 
sehr  brauchbarer  Software 
vollgepackt  sind,  ein.  Diese 
besteht  aus  dem  PenPainter 
für  Freihandzeichnungen, 
dem  PenDesigner  für  techni¬ 
sche  Zeichnungen  mit  vorge¬ 
gebenen  Formen  (Bild  8), 
dem  PenAnimator  für  Ani¬ 
mationen  auf  dem  C  64  und 
dem  PenMusician  für  die 
Einführung  in  die  Musikkom¬ 
position  mit  dem  Lichtgriffel. 

Von  Inkwell  gibt  es  eben¬ 
falls  einen  Präzisions-Licht¬ 
griffel  mit  einem  umfangrei¬ 
chen  Softwarepaket  »Flexi- 
draw«  (Bild  9).  Zusätzlich  zu 
den  oben  erwähnten  Pro¬ 
grammen  ist  auch  noch  mit 
Transgraph  ein  Programm 
zur  Übertragung  der  mit  Fle- 


xidraw  erzeugten  Grafiken  I 
via  Modem  eingebaut  und 
mit  der  Penware  Utility  Disk  I  | 
ein  Programm  für  die  Ausga¬ 
be  der  Bilder  auf  Printer- 
Plotter  erhältlich.  Der  Preis 
für  Flexidraw  ist  mit  150  Dol¬ 
lar  (einschließlich  Lichtgrif¬ 
fel)  als  günstig  zu  bezeich¬ 
nen. 


Spaß  am  Griff 


Von  Wico  gab  es  eine  gan¬ 
ze  Reihe  neuer  Joysticks,  So 
zum  Beispiel  den  Dreiweg- 
Joystick  mit  auswechselba¬ 
ren  Griffen  für  33  Dollar  oder 
den  »Grip  Handle«  mit  ex¬ 
trem  kleiner  Grundfläche 
zum  besseren  Halten  mit  ei¬ 
ner  Hand  für  25  Dollar.  Es 
lassen  sich  nur  die  horizonta- 


I 
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Sprache  rein 
und  raus 


Sprachausgabe  auf  dem 
Commodore  64  ist  nicht  neu, 


A  Bild  7.  Die  Muppet 
Leamings  Keys  von  Koala  sollen  den 
Kindern  den  Umgang  mit  dem 
C  64  durch  lemgerechte  Tastaturanordnung 

erleichtern. 


soll  die  Spracherkennung 
kosten. 

Von  professionellen  Key¬ 
boards  bis  zu  Heimwerker- 
Lösungen  reichte  die  Palette 
bei  den  Musikanbietern. 
Melodian  zeiyle  ein  Keybo¬ 
ard  (200  Dollar)  im  moderen 


Design  mit  37  Tasten  und  3 
Oktaven  das  von  von  einer 
elektronischen  Orgel  kaum 
zu  unterscheiden  ist.  Die  Mu¬ 
sik  macht  allerdings  der 
Computer.  Drei  verschiede¬ 
ne  Softwarepakete  Geweils 
40  Dollar)  sind  für  den  C  64 


len  und  vertikalen  Richtun¬ 
gen  oder  wahlweise  auch 
die  Diagonalen  (zu)schalten. 

Nahezu  unverwüstlich  soll 
der  Prostick  II  und  III  von 
Newport  Controls  sein.  Der 
Griff  ist  aus  massivem  Edel¬ 
stahl  und  das  Gehäuse  aus 
unzerbrechlichen  Kunststoff. 
Es  gibt  Feuerknöpfe  sowohl 
für  Rechts-  als  auch  für  Links¬ 
händer.  Stolze  25  Dollar  ko¬ 
stet  das  Stück. 

Als  Zubehör  gibt  es  soge¬ 
nannte  »Boards«,  oft  richtige 
Holzbretter  in  die  die  Joy¬ 
sticks  der  Atari-  und  Wico- 
Baureihe  verrutschsicher 
eingesteckt  werden  können. 
Preis  bei  Thompson  10  Dol¬ 
lar. 


Bild  5.  Das  Super 
Sketch  Board  von  Personal 
Peripherais. 


Bild  6.  Der  Digitiser  von  Cardco. 


es  gibt  bereits  in  Deutsch¬ 
land  einige  auf  dem  Markt 
(Speech  Design,  SAM).  Lern¬ 
software  mit  integrierter 
Sprachausgabe  hingegen  ist 
neu.  Comm  Data  stellte  meh¬ 
rere  Rechenprogramme  für 
Kinder  vor,  bei  denen  die 
Aufgaben  durch  einen  spe¬ 
ziellen  Software-Synthesizer 
auch  hörbar  gemacht  wer¬ 
den. 

Als  kleines  Wunder  be- 
zeichnete  ENG  Manufactu¬ 
ring  den  von  ihnen  vorge¬ 
stellten  Prototyp  für  die  Spra¬ 
cheingabe  »Chirpee«  (Bild 
11).  Bis  zu  400  Wörter  lassen 
sich  damit  erfassen.  Dabei 


ist  es  gleichgültig,  in  welcher 
Sprache  gesprochen  wird, 
da  diese  Wörter  vorher  in  ei¬ 
ner  Erkennungsphase  dem 
System  (C  64,  Software  und 
einem  kleinen  Gehäuse  mit 
Mikrofon)  praktisch  erst  bei¬ 
gebracht  werden.  Erstaun¬ 
lich  dabei  ist,  daß  »Chirpee« 
auch  Wörter  —  in  einem  ge¬ 
wissen  Rahmen  —  versteht, 
die  von  anderen  gesprochen 
werden,  obwohl  diese  Leute 
nicht  an  der  Erkennungs¬ 
phase  beteiligt  waren.  Die 
Zuverlässigkeit  bei  einzel¬ 
nen  läßt  sich  durch  Mehr¬ 
fachnennungen  auf  bis  zu  99 
Prozent  steigern.  179  Dollar 


Bild  8.  Der  Gibson 
Lichtgriffel  mit  dem  PenDesigner 
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von  Melodian  vorgestellt 
worden:  ConcertMaster 

(Bild  12)  ein  Programm  für 
die  gehobenen  Ansprüche, 
MelodyMaster  zum  Erler¬ 
nen  der  Musik  und  der 
RhythmMaster  der  vor  ei¬ 
nem  vor  allen  den  perfekten 
Rhythmus  beibringen  soll. 


Möglichkeit  zu  geben,  mit 
dem  Spielen  anzufangen. 
Der  Jazzmusiker  Ryo  Kawa¬ 
saki  stellte  seine  für  Sight  & 
Sound  entwickelte  Musik¬ 
software  Kawasaki  Synthesi¬ 
zer  (50  Dollar)  und  Rythm 
Rocker  (etwa  40  Dollar) 
selbst  vor.  Diese  Musikpro- 


FlexiDraw  von  Inkwell  läßt  sich  problemlos  auf 
der  Pixelebene  arbeiten. 


Bei  allen  drei  Programmen 
sind  die  eben  gespielten  No¬ 
ten  sofort  auf  dem  Bild¬ 
schirm  zu  sehen.  Es  können 
aber  auch  gespeicherte 
Stücke  nachgespielt  wer¬ 
den,  wobei  die  Programme 
jeden  gemachten  Fehler  an- 
zeigen. 

Sight  &  Sound  stecken  eine' 
eigene,  kleine  Tastatur  für  40 
Dollar  (Bild  13)  auf  den  Com- 
modore  64,  um  den  Kosten¬ 
aufwand  zu  reduzieren  und 
um  dem  Musiker  sofort  die 


gramme  sind  mittlerweile  so 
ausgereift,  daß  fast  kein  Un¬ 
terschied  mehr  zu  einem  di¬ 
gitalen  Sythesizer  bemerk¬ 
bar  ist. 


Die  Softwareflut 


Das  Angebot  an  neuen 
Software-Produkten  war  fast 
unüberschaubar,  Beach¬ 
tenswert  dabei,  fast  alle  Soft¬ 
warehersteller  zeigten  ihre 
neuen  Programme  zunächst 


Bild  11.  Spracheingabe  ist  nun  auch 
mit  dem  C  64  möglich.  »Chirpee»  versteht  bis 
zu  400  Wörter  in  jeder  Sprache. 


auf  dem  Commodore  64  mit 
der  Ankündigung,  diese 
Programme  würden  zu  ei¬ 
nem  späteren  Zeitpunkt 
auch  für  andere  Computer 
wie  dem  PCjr,  dem  Aplle  IIc 
oder  den  Atari-Systemen  er¬ 
hältlich  sein.  An  jedem  Stand 
war  also  mindestens  ein  C  64 
vertreten,  auf  dem  ein  neues 
Programm  lief.  Ein  Trend 
war  besonders  deutlich,  die 
Hinwendung  zur  Lernsoftwa¬ 
re  und  Spielen  mit  »einge¬ 
bautem«  Lerneffekt.  Die 
Action-  und 
sind  zwar  nicht  tot, 
aber  in  ihrer  Bedeutung 
etwas  zurückgedrängt. 


Arten  von  Krankheitserre¬ 
gern  und  deren  Auswirkun¬ 
gen  auf  den  Menschen  ken¬ 
nen.  Aber  auch  Faktoren  wie 
Alter,  Streß,  Drogen  oder  Al¬ 
kohol  und  deren  Einfluß  auf 
eine  Zelle,  einen  Zellver¬ 
bund  oder  den  Menschen 
werden  berücksichtigt. 

Mit  Type»n«Write  (Bild  16) 
wurde  nicht  nur  ein  Tfextver- 
arbeitungssystem  für  Kinder 
von  HES  vorgestellt.  Damit  ist 
auch  ein  Tastaturlernpro¬ 
gramm  verknüpft,  das  von 
ersten  Schritten  mit  der 
Commodore-Tastatur 
-in  Form  von  attak- 
ierenden  Buch- 


OnLin0Mn 


Bild  10.  Sowohl  für  Rechts-  und 
Linkshänder  geeignet. 


Einige  Beispiele  für  die 
neue  Generation  der  Lern¬ 
programme  sollen  zeigen, 
was  uns  demnächst  erwartet. 
Von  Imagic  stammt  das  Pro¬ 
gramm  Injured  Engine  (Bild 
14).  Mit  Injured  Engine  soll 
man  die  Funktionsweise  ei¬ 
nes  Ottomotors  kennenler¬ 
nen.  Dazu  kann  man  sich  die 
einzelnen  Funktionsblöcke 
wie  Kraftstoffzufuhr  oder 
Elektrik  einzeln  oder  im  Ver¬ 
bund  betrachten  und  erklä¬ 
renden  Text  abrufen.  Im 
nächsten  Schritt  wird  irgend¬ 
wo  ein  Fehler  eingebaut,  den 
es  durch  Diagnose  und  Aus¬ 
wechseln  bestimmter  Teile 
zu  lokalisieren  gilt.  Man  kann 
aber  auch  selbst  Fehlfunktio¬ 
nen  in  einzelnen  Blöcken 
auslösen  und  sich  die  Aus¬ 
wirkungen  auf  die  anderen 
Elemente  ansehen. 

Ein  ähnliches  Produkt  ist 
Cell  Defense  (Bild  15)  von 
HES.  Hier  muß  man  sich  als 
menschliche  Zelle  mit  sei¬ 
nem  Immunsystem  den 
Attacken  von  Bakterien  und 
Viren  erwehren.  Ganz  ne¬ 
benbei  lernt  man  den  Zel¬ 
laufbau,  die  verschiedenen 


staben  und  Zahlen  —  bis  zu 
perfekten  Schreibmaschi¬ 
nenkenntnissen  hinführt. 

Auch  bei  CBS  Software  hat 
man  sich  nach  der  Pleite  mit 
den  Arcadespielen  voll  auf 
die  Lernsoftware  gestürzt. 
Das  Motto  von  CBS  lautete: 
»Von  der  Sesam  Straße  bis 
zur  Wall  Street«.  Dies  weist 
auch  schon  auf  die  Zielrich¬ 
tung  der  mittlerweile  47  Pro¬ 
gramme  hin;  Kinder  im  Vor¬ 
schulalter  mit  einfachen  und 
Studenten  sowie  Autodidak¬ 
ten  mit  gehobenen  Lernpro¬ 
grammen  zu  versorgen.  »For- 
cast«  (Bild  17)  soll  zum  Bei¬ 
spiel  angehenden  Meteoro¬ 
logen  ein  Hilfsmittel  für  das 
bessere  Verständis  der  Wet¬ 
tervorhersage  sein. 

Aber  auch  die  Actionspie¬ 
le  selbst  haben  eine  Verän¬ 
derung  erfahren.  Als  Bei¬ 
spiel  soll  das  Spiel  Karate 
(Bild  18)  von  Broderbund  die¬ 
nen.  Das  Spiel  zeichnet  sich 
vor  allen  durch  seinen 
Zeichtnck-Effekt  aus.  Der 
Karateka  wird  dabei  vom 
Spieler  mit  dem  Joystick  an 
die  einzelnen  Gegner  heran¬ 
geführt  und  muß  sich  gegen 
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Äi/c?  74.  Injured  Engine  ist  ein  ausgezeichnetes  Bild  15.  Cell  Defense  von 

Lemprogramm  von  Imagic,  um  die  Funktionswei-  HES  lehrt  die  medizinischen  Grundkenntnisse 

se  eines  Ottomotors  kennenzulemen.  des  Immunsystems. 


die  Braun-  und  Scharzgurte 
mit  gekonnten  Schlägen  und 
Ausweichmanövern  wehren. 

Die  Abenteuerspiele  wer¬ 
den  immer  beliebter  und 
entsprechend  ist  die  Reak¬ 
tion  der  Hersteller  darauf. 
Mittlerweile  braucht  man 
nicht  mehr  gegen  Gnome 
und  Drachen  zu  kämpfen, 
sondern  es  werden  richtige 
Szenen  aus  dem  Leben  ge¬ 
nommen.  Bei  »Dallas  Quest« 
(Bild  19)  von  Datasoft  kann 
man  seine  Fähigkeiten  ge¬ 
gen  den  Fiesling  J.R.  einset- 
zen.  Aber  auch  Comic-Figu¬ 
ren  dienen  als  Vorlage.  So 
hat  Commodore  Software 
den  »Hulk«  (Bild  20)  in  ein 
Abenteuerspiel  umgesetzt. 

Ein  beliebtes  Thema  ist 
auch  der  Zehnkampf  gewor¬ 


den.  Summer  Games  von 
Epyx,  Declathon  von  Activi- 
sion  oder  6  Olympic  Games 
(Bild  21)  von  HES  sind  mo¬ 
mentan  die  drei  konkurrie¬ 
renden  Programme.  Sie  un¬ 
terscheiden  sich  mehr  oder 
weniger  lediglich  in  der  Aus¬ 
wahl  der  Wettkampfarten. 
Gemeinsam  ist  bei  allen  drei 
die  hohe  Spielmotivation. 

Bei  den  Anwenderpro¬ 
grammen  dominierten  vor 
allen  Dingen  Textverarbei¬ 
tung  und  Datenbanken.  Dazu 
zählten  der  PaperClip  und 
der  Consultant  von  Batteries 
Included,  der  Bank  Street 
Writer  von  Broderbund  Soft¬ 
ware,  der  Creative  Writer 
von  Creative  Software,  das 
Supertext  von  Muse  Softwa¬ 
re,  Homeword  von  Sierra  on 


line,  der  Data  Manager  von 
Timeworks,  der  OmniWriter 
von  HES  und  und  ...  Zu  vielen 
dieser  Textverarbeitungpro¬ 
gramme  gibt  es  sogenannte 
Spell  Checker.  Diese  ermög¬ 
lichen  eine  Überwachung 
der  Rechtschreibung,  aller¬ 
dings  nur  im  Englischen,  da¬ 
für  aber  von  bis  zu  30000 
oder  40000  Wörtern.  Doch 
die  Zielrichtung  ist  vorgege¬ 
ben,  die  Realisierung  auf 
dem  deutschen  Markt  läßt 
aber  noch  auf  sich  warten. 
Interessant  für  uns  dürfte 
auch  Kwik-Load  (Bild  22)  von 
Datamost  sein.  Damit  lassen 
sich  Programme  drei  bis  fünf 
mal  schneller  laden. 

Bei  Commodore  selbst 
gab  es  wieder  einmal  eine 
Umbennung.  Der  C  264  heißt 


in  Zukunft  Plus/4.  Warum 
dies?  Nun  für  den  C  264  wur¬ 
den  das  Textverarbeitungs- 
das  Grafik-  das  File-  und  das 
Tabellenkalkulationspro¬ 
gramm  wahlweise  als  Option 
angeboten.  Das  heißt  man 
konnte  sich  für  das  eine  oder 
andere  Programm  entschei¬ 
den.  In  den  Plus/4  sind  diese 
vier  fest  eingebaut  und  kön¬ 
nen  die  Daten  interaktiv  aus- 
tauschen.  Ansonsten  ist  der 
Plus/4  völlig  identisch  mit 
dem  C  264.  Eine  Bemerkung 
am  Rande:  Diese  vier  Pro¬ 
gramme  die  von  Tri  Micro  für 
Commodore  entwickelt  wur¬ 
den,  sind  bei  Tri  Micro  auf 
Diskette  auch  für  den  C  64 
erhältlich.  Dieser  Umstand, 
daß  neue  Programme  für 
den  Plus/4  auch  gleichzeitig 
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Bild  18.  Karate 

von  Broderbund.  Der  Zeichentrickeffekt 
ist  faszinierend. 


Bild  19.  Versuchen 
Sie  Ihr  Glück  gegen  das  Ekel  J.R.  in 
Dallas  Quest  von  Datasoft. 


für  den  C  64  angeboten  wer¬ 
den,  zeigt  einerseits  deut¬ 
lich,  daß  der  Plus/4  den  C  64 
nicht  ablösen  soll,  sondern 
lediglich  nach  oben  hin  er¬ 
gänzen.  Anderseits  bedeu¬ 
tet  dies  für  den  potentiellen 
Käufer  keine  Komplizierung 
seiner  Entscheidung.  Dem  C 
64  steht  ein  langes  Leben  be¬ 
vor.  Vom  C  364  wurde  übri¬ 
gens  Abstand  genommen. 
Er  wird  wohl  vorläufig  nicht 
auf  den  Markt  kommen. 

Meine  amerikanischen 
Kollegen  waren  relativ  über¬ 
rascht,  als  sie  hörten,  daß 
Commodore  die  neue  Hard¬ 
ware  bereits  auf  der 
Hannover-Messe  vorgestellt 
hat.  Da  wären  zunächst  ein¬ 
mal  der  Typenraddrucker 
DPS  1101,  der  kompatibel  mit 


dem  Plus/4  sein  soll.  Der 
MPS  802  Matrix-Drucker  mit 
einer  Druckgeschwindigkeit 
von  60  Zeichen  pro  Sekunde. 
Er  hat  hat  in  etwa  dieselben 
Leistungsmerkmale  wie  der 
VC  1526.  Der  MCS  801  Farb- 
matrix-Drucker  mit  30  Zei¬ 
chen  pro  Sekunde  und  acht 
vertikalen  Punkten  sowie  640 
Zeilen,  sowie  der  Billig¬ 
drucker  MPS  803,  welcher 
wohl  als  Ersatz  für  den  VC 
1515  auftreten  soll.  Für  den  C 
16  (der  wird  auch  weiterhin 
so  heißen)  gibt  es  eine  eige¬ 
ne  Datasette,  die  1531.  Und 
letztendlich  der  neue  Farb¬ 
monitor  CM  141,  der  so  neu 
eigentlich  auch  wieder  nicht 
ist.  Es  basiert  auf  dem  VC 
1701/1702  und  wurde  ledig¬ 
lich  einer  kosmetischen  Kor¬ 


rektur  zur  Designanpassung 
an  den  Plus/4  unterzogen. 
Die  Angaben  für  die  Verfüg¬ 
barkeit  selbst  für  den  ameri¬ 
kanischen  Markt  sind  von 
Commodore  wieder  einmal 
sehr  schwammig:  in  der 
zweiten  Hälfte  des  Jahres 
1984.  Dies  ist  aber  ein  altbe¬ 
kanntes  Leid  aller  Firmen; 
man  muß  neue  Produkte  re¬ 
gelmäßig  auf  den  großen 
Messen  ankündigen,  um  im 
Gespräch  zu  bleiben,  die 
Lieferzeiten  stehen  dann  auf 
einem  anderen  Blatt.  Die 
Preise  und  die  Einführung 
auf  dem  europäischen 
Markt  sind  also  mehr  oder 
weniger  noch  Zukunftsmu¬ 
sik. 

Commodore  engagiert 
sich  jetzt  verstärkt  im  Be¬ 


reich  Software.  Es  findet  da¬ 
bei  ein  Abkehr  von  der  bis¬ 
her  verfolgten  Linie,  billige 
und  deswegen  auch  relativ 
einfache  Software  anzubie¬ 
ten.  Commodore  scheint  von 
nun  an  auf  Qualität  zu  setzen. 
Durch  ein  Abkommen  mit 
der  Marvel  Comics  Group 
werden  deren  Comic- 
Helden  in  Abenteuerspiele 
umgesetzt.  Typische  Bei¬ 
spiele  sind  die  Questprobe- 
Serien  Hulk  und  Spiderman. 
Dabei  sollen  die  Comic- 
Bücher  von  Marvel  simultan 
mit  den  Abenteuerspielen 
verkauft  werden.  Weitere 
Produkte  in  der  Abenteuer- 
Serie  sind  Satan's  Hollow  und 
Solar  Fox. 

Auch  bei  den  Lernpro¬ 
grammen  gibt  es  von  Com- 
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Bild  23.  B/Graph  von  Commodore 
vereinfacht  die  Erstellung  von  dreidimensionalen 
Blockgrafiken  ungemein. 


Matchboxes  von  Broder- 
bund  Software,  Jack  Attack, 
Micro  Cookbook  und  Inter¬ 
national  Soccer  von  Commo¬ 
dore,  Childpace  von  Compu¬ 
terrose,  Dragonhawk,  In  the 
Chips  und  Moondust  von 
Creative  Software,  Music 
Construction  Set  von  Electri- 
mc  Arts  (ECA),  Fax  und  Sum¬ 
mer  Games  von  Epyx,  Om- 
niWriter/Omnispell,  Cell  De¬ 
fense,  HES  Games  und  Turt¬ 
le  Toyland  Jr.  von  Human  En- 
gineered  Software  (HES), 
The  Rüg  Rider  von  Interna¬ 
tional  Tri  Micro,  Super-Text 
und  Space  Taxi  von  Muse 
Software,  64  Doctor  von  Prac- 
ticorp,  Superbase  64  von 
Precision  Software,  Falcon 
Patrol  von  Quicksilvia,  Pogo 
Joe  von  Screenplay,  Musi- 
comp-Music  Processor  von 
Sight  &  Sound  International, 
Model  Diet,  Computer  Me- 
chanic  und  Dancing  Feats 
von  Softsync,  Flight  Simula¬ 
tor  II  von  Sublogic,  Cam- 
pain’84  von  Sunrise  Software, 
Data  Manger  2  und  Dungeon 


Bild  22.  Kwik-Load  von  Datamost 


so  beliebten  Auszeichnun¬ 
gen  oder  Orden  wieder.  Die¬ 
se  Software  Showcase  ge¬ 
nannte  Prämierung  betraf 
nur  Programme  für  die  wich¬ 
tigsten  fünf  Heimcomputer: 
Apple  II/IIe,  IBM-PCjr,  Atari 
Home  Computer,  ColecoVi- 
sion/Adam  und  mit  weiten 
Abstand  vorne,  Commodore 
64. 

Gekürt  wurden  Beach- 
Head  von  Access  Software, 


of  the  Algebra  von  Time- 
works  sowie  schließlich  Mu- 
siCalc  von  Waveform  Corpo¬ 
ration.  Diese  Programme 
wurden  also  von  einer  unab¬ 
hängigen  Jury  zu  den  Ren¬ 
nern  auf  dem  Commodore 
64  erklärt. 

Der  Commodore  64  hat  ei¬ 
ne  überragende  Marktstel¬ 
lung  gewonnen.  Die  neueste 
und  beste  Software  wird  auf 
dem  C  64  vorgestellt,  die  an¬ 


deren  Systeme  müssen  war¬ 
ten,  bis  die  Programme  um- 
gc  nrieben  sind.  Bisher 
war  das  noch  umgekehrt  (vor 
allem  was  die  Atari-Com¬ 
puter  betrifft).  Das  Hard¬ 
ware-Angebot  auch  von  un¬ 
abhängigen  Herstellern 
wird  immer  umfangreicher. 
Andere,  neue  Computer 
werden  einige  Schwierigkei¬ 
ten  haben,  sich  gegen  die 


Dominanz  des  C  64  durchzu¬ 
setzen.  Von  MSX-Systemen 
war  zwar  schon  einiges  zu  se¬ 
hen,  aber  der  große  Durch¬ 
bruch  ist  noch  lange  nicht  in 
Sicht.  Es  bleibt  abzuwarten, 
wann  es  den  ersten  C  64- 
kompatiblen  Computer  (ähn¬ 
lich  wie  beim  IBM  PC)  auf 
dem  Markt  gibt.  (aa) 


modore  viel  Neues  zu  be¬ 
richten.  Mit  Just  Imagine  kön¬ 
nen  Kinder  ab  vierJahren  ih¬ 
re  eigenen  Animationsge¬ 
schichten  kreieren.  Mit 
Number  Builder  müssen  die 
Kinder  eine  bestimmte  Zahl 
durch  Addieren,  Subtrahie¬ 
ren,  Multiplikation  oder  Divi¬ 
sion  erhalten.  Für  alle  die 
Spaß  an  der  Astronomie  ha¬ 
ben,  gibt  es  Window  to  Gala¬ 
xies.  Ein  Programm,  das  von 
jedem  Punkt  der  Erde  zu  je¬ 
dem  Zeitpunkt  die  Sterne¬ 
konstellation  zeigt.  Die  Posi¬ 
tionen  von  mehr  als  12000 
Sternen,  von  88  Sternbildern, 
der  Sonne,  des  Mondes,  von 
acht  Planeten,  von  Komme- 
ten  und  Galaxies  können  auf 
dem  Bildschirm  dargestellt 
werden.  In  der  Productivity- 
Rubrik  stach  besonders  das 
Grafikprogramm  B/Graph 
(Bild  23)  hervor. 

Auf  der  CES  ist  es  üblich, 
die  besten  Programme  zu 
küren.  Diese  finden  sich 
dann  an  den  verschiedenen 
Ständen  mit  den  in  Amerika 
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Steuern  mit  dem 
User-port? 

Ich  möchte  über  den  Userport 
einen  x/y/z  Bohrfrästisch  steu¬ 
ern.  Wie  ist  so  etwas  zu  realisie¬ 
ren? 

Thomas  Wistuba 


Probleme  mit  Monitoren 

Wie  schließe  ich  einen  Moni¬ 
tor  an  den  VC  20  an?  Anfragen 
bei  Händlern  ergaben  nur,  daß 
ein  entsprechendes  Kabel  anzu¬ 
fertigen  sei,  aber  nicht  wie.  Wer 
kann  helfen? 

Inge  Märkle 


Ich  besitze  einen  Commodo- 
re  SX  64  und  ein  Sony  Farb-TV 
ohne  Video-Eingang.  Wie  kann 
ich  diese  Geräte  zusammen¬ 
schalten,  damit  der  Farbfernse¬ 
her  als  Monitor  genutzt  werden 
kann? 

Hans-Jürgen  Mundstock 


Wie  bekomme  ich  die  strei¬ 
fenförmig  auftretenden  Farb- 
ränder  auf  dem  Femsehschirm 
weg? 

Gibt  es  eine  Möglichkeit,  aus 
dem  C  64  ein  RGB-Signal  zu  ho¬ 
len? 

Peter  Stahn 


Ich  besitze  einen  Blaupunkt- 
Farbfemseher  mit  RGB-Ein- 
gang.  Welche  Firma  bietet  ein 
RGB-lnterface  (bzw.  entspre¬ 
chenden  Schaltplan)  für  den  C 
64  an  und  zu  welchem  Preis? 

Gemot  Murawski 


Wie  kann  ich  mit  dem  Video- 
Recorder  Panasonic  N8003T  das 
Signal  vom  Computer  aufneh¬ 
men?  Der  Fernseher  vom  Typ 
Saba  T5658  und  75  Ohm-Kabel 
funktioniert  einwandfrei. 

Eugen  Anger 


Wie  schließe  ich  den  C  64  an 
einen  Fernseher  mit  Scart- 
Buchse  an  (Nordmende  1534, 
3540;  Loewe)?  Walter  Wagner 


Anschlußprobleme  mit 
Druckern 

Wie  kann  man  die  KB  50  Tasta¬ 
tur  des  Brother  HR15  an  den 
Userport  des  C  64  anschließen, 
um  für  Textverarbeitungssyste¬ 
me  eine  DIN 2137 -Tastatur  zur 
Verfügung  zu  haben? 

Horst  Singer 

Ich  habe  eine  Schreibmaschi¬ 
ne  Brother  CE-50  mit  seriellem 
Interface  (Adresse  4),  die  mit 
meinem  C  64  gut  zusammenar¬ 
beitet.  Nur  mit  Datamat  von  Da¬ 
ta  Becker  kann  ich  keinen  Aus¬ 
druck  erstellen.  Die  Firma  hat 
mir  auf  schriftliche  Anfrage  nur 
nichtssagend  geantwortet.  Wer 
kann  helfen? 

Gerd  Mandelkow 

Kann  man  die  Kugel  kopf- 
Brother  7900  (durch  einen 
Trick?)  über  irgendein  Interface 
an  den  C  64  anschließen? 

Stefan  Wülfert 

Gibt  es  eine  softwaremäßige 
Verbindung  zwischen  dem  C  64 
und  Brother  CE-60? 

Manfred  Mattem 

Wie  kann  ich  die  Sonderzei¬ 
chen  der  Schreibmaschine  Pri¬ 
vileg  3000  ansprechen  und  aus- 
drucken?  Welchen  Code  hat  die 
KB-II-Taste? 

Dr.Emst  Suchalla 

Ich  habe  einen  Fernschreiber 
Siemens  TI 00  und  suche  einen 
Anschlußplan  für  den  C  64. 

Burghard  Schmolling 

Wer  kennt  einen  Hard-  oder 
Software-gesteuerten  Anschluß 
einer  Olivetti  Praxis  30  an  den  C 
64?  Josef  Ha  uk 


Programmunterbrechung 
bei  Druckerausgabe 

Meine  Hardware:  VC  64,  Flop¬ 
py  1541,  NEC  Drucker  8023  B-N 
mit  Interface  9200  für  VC  64.  Bei 
Ausgabe  über  Drucker  von  mir 
erstellter  Programme,  als  auch 
gekaufter  Programme  (zum  Bei¬ 
spiel  Datamat  von  Data  Becker) 
erfolgt  nach  unterschiedlich 
langer  Druckerausgabe  die 
Fehlermeldung  »Device  not 
present  error«.  Manchmal  funk¬ 
tioniert  die  Druckerausgabe 
(mit  Endlosblatt)  seitenweise 
und  unterbricht  dann  plötzlich 
mit  oben  angegebener  Fehler¬ 
meldung;  das  andere  Mal  wer¬ 
den  nur  ein  paar  Zeilen  ausge¬ 
geben  und  wieder  erfolgt  die 
obige  Unterbrechung.  Natür¬ 


lich  sind  alle  Geräte  (C  64,  Flop¬ 
py,  Drucker)  eingeschaltet  und 
betriebsbereit.  Handelt  es  sich 
hier  nur  um  einen  Hardware¬ 
oder  Softwarefehler?  Kann  mir 
hierzu  jemand  helfen? 

(Rudolf  Ott) 


Hardcopy  mit  NEC 
8023B-N 

Wer  bietet  Software  an,  um 
mit  C  64  und  Drucker  NEC 
8023B-N  hochauflösende  Grafik 
und  Hardcopys  zu  erstellen? 

Wolfgang  Jaworski 


Fragen  Sie  doch! 

Selbst  bei  sorgfältiger  Lek¬ 
türe  von  Handbüchern  und 

Programmbeschreibungen 
bleiben  beim  Anwender  im¬ 
mer  wieder  Fragen  offen.  Viel 
mehr  Fragen  ergeben  sich 
bei  Computer-Interessenten, 
die  noch  keine  festen  Kontak¬ 
te  zu  Händlern,  Herstellern 
oder  Computerclubs  haben. 
Sie  können  der  Redaktion  Ih¬ 
re  Fragen  schreiben  oder 
Probleme  schildern  (am  ein¬ 
fachsten  auf  der  beigehefte¬ 
ten  Karte).  Wir  veranlassen, 
daß  die  Fragen  von  einem 
Fachmann  beantwortet  wer¬ 
den.  Allgemein  interessieren¬ 
de  Fragen  und  Antworten 
werden  veröffentlicht. 


Bits  hörbar  machen? 

Ist  es  beim  C  64  möglich, 
beim  Laden  von  Datasette  die 
Signale  hörbarzu  machen? 

Werner  Frings 


Simons  Basic  mit 
Turbo-Tape? 

Wer  kennt  eine  Möglichkeit, 
Simons  Basic  und  Turbo-Tape 
gleichzeitig  benutzen  zu  kön¬ 
nen?  Rolf  Lehr 


Knisternde  Bits? 

Mein  C  64  gibt  nach  dem  Ein¬ 
schalten  knisternde  Geräusche 
über  den  Fernseher  von  sich, 
die  allerdings  mit  der  Zeit  wie¬ 
der  verschwinden.  Es  liegt  kein 
Wackelkontakt  am  Kabel  vor. 
Wer  weiß  Rat? 

Matthias  Brunke 


Text  und  Grafik  mischen? 

Ich  besitze  einen  Commodo- 
re  64  und  bin  gerade  dabei,  ein 
Adventure  zu  schreiben.  Nun 
stehe  ich  vor  einem  Problem. 
Wie  kann  ich  in  Simons  Basic 
hochauflösende  Grafik  und 
Text  gleichzeitig  darstellen?  Ich 
benötige  nur  ein  kleines  Text¬ 
fenster  für  die  Eingabe  von  Ant¬ 
worten.  Frank  Schager 


Wer  kennt 
»Aztec  Tomb«? 

Ich  besitze  das  Spiel  »Aztec 
Tomb «  für  den  C  64  und  komme 
einfach  nicht  weiter.  Nachdem 
ich  am  Bullen  vorbei  durch  das 
Tor  gehe,  stehe  ich  vor  einer 
Pflanze  auf  »Waste  Ground«.  Ich 
trage  bei  mir:  old  ehest,  red 
clock,  dead  mouse,  door-key. 
Wer  kann  mir  weiterhelfen? 

Stephan  Sache 
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Hier  gibt  es  Clubs 

Der  ICC  hat  derzeit  26  Mitglie¬ 
der,  ausschließlich  C  64-User 
mit  Datasette,  1541  Floppy,  1515/ 
1526/Epson  FX-80  Drucker.  Er 
beschäftigt  sich  schwerpunkt¬ 
mäßig  mit  allen  Aspekten  des 
List-  und  Kopierschutzes,  Mo¬ 
demtechnik,  Hilfestellung  für 
Einsteiger,  Softwaretausch, 

Hardware-Sammelbestellun 
gen,  Förderung  von  Kommuni¬ 
kation  unter  den  Mitgliedern  auf 
allen  möglichen  Ebenen.  Tref¬ 
fen  gibt  es  derzeit  noch  nicht, 
sind  aber  mittelfristig  geplant. 

Geplant  ist  für  die  nahe  Zu¬ 
kunft  eine  eigene  Mailbox.  Die 
Entwicklung  von  dazu  nötiger 
Betriebssoftware  ist  ein  weiterer 
Arbeitsschwerpunkt.  Der  Club 
freut  sich  in  diesem  Zusammen¬ 
hang  über  jegliche  Form  der 
Mithilfe.  Neue  Mitglieder  sind 
natürlich  jederzeit  willkommen. 

Der  Club  gibt  monatlich  ein 
12seitiges  Info  für  seine  Mitglie¬ 
der  heraus.  Der  Jahresmit¬ 
gliedsbeitrag  ist  60  Mark,  eine 
dreimonatige  Probemitglied¬ 
schaft  für  20  Mark  ist  möglich. 
Ein  Probeinfo  gibt  es  für  5  Mark. 

INTERFACE-COMPUTER¬ 
CLUB,  Hindenburgstr.  98,  D-2120 
Lüneburg,  den  22/06/84. 


Software  per  Telefon 

Wir  sind  ein  C  64-Userclub, 
der  sich  seit  einiger  Zeit  intensiv 
mit  der  neuen  Technik  der  DFÜ 
per  Telefon  beschäftigt. 

In  unserem  monatlichen  Club¬ 
info  berichten  wir  ausführlich 
über  DFÜ  und  die  damit  zusam¬ 
menhängenden  Probleme  —  na¬ 
türlich  vornehmlich  auf  den  C  64 
bezogen. 


Wir  planen,  ab  Mitte  Juli  unse¬ 
ren  Mitgliedern  per  Telefon  Soft¬ 
ware  zu  schicken.  Ein  Terminal- 
Programm,  das  den  C  64  in  ein 
intelligentes  Terminal  verwan¬ 
delt,  wurde  bereits  von  uns  er¬ 
stellt. 

Speziell  für  DFÜ-Neulinge  ha¬ 
ben  wir  ein  DFÜ-Sonderinfo  mit 
allen  Informationen,  die  man 
braucht  um  mit  dem  C  64  online 
zu  kommen,  herausgegeben. 
Das  Info  enthält  auch  eine  Be¬ 
schreibung  unseres .  Terminal¬ 
programmes.  Interessierte  kön¬ 
nen  es  gegen  3  Mark  in  Brief¬ 
marken  bei  uns  bestellen.  Anfra¬ 
gen  bitte  an  unsere  Club¬ 
adresse  oder  telefonisch. 

Andreas  Voigt 
INTERFACE-COMPUTER-CLUB, 
2120  Lüneburg,  Hindenburgstr. 
98,  Tbl.:  04131/37876. 


Basic-Zeilen  größer 
80  Zeichen? 

Die  maximale  Zeilenlänge 
beim  C  64  beträgt  80  Zeichen. 
Bei  manchen  Programmen  wer¬ 
den  diese  teilweise  überschrit¬ 
ten.  Wie  kann  man  das  Pro¬ 
gramm  trotzdem  zum  Laufen 
bringen? 

Rainer  )ost 


Diese  vor  allem  von  Anfän¬ 
gern  häufig  gestellte  Frage  läßt 
sich  einfach  beantworten.  Im 
Handbuch  des  C  64  befindet 
sich  im  Anhang  D  auf  Seite 
130/131  eine  Tabelle  der  Abkür¬ 
zung  von  Basic-Schlüsselwör- 
tern.  Fast  jeder  Basic-Befehl  läßt 
sich  durch  Eingabe  des  ersten 
Buchstabens,  gefolgt  vom  ge- 
shifteten  zweiten  Buchstaben  des 
Befehls  abkürzen.  Zum  Beispiel 
wird  aus  der  Eingabe  von  P 
(Shift)O  das  Wort  POKE,  oder  P 
(Shift)R  wird  zu  PRINT#  im  Ge¬ 
gensatz  zu  >?«  für  PRINT.  So  kann 
eine  Basiczeile  beim  Listen  80 
Zeichen  überschreiten.  Versu¬ 
chen  Sie  nicht,  diese  Zeile  hin¬ 


Der  Commodore  1526  ist  hard¬ 
waremäßig  nicht  für  hochauflö¬ 
sende  Grafik  vorgesehen,  daß 
heißt,  es  besteht  keine  Möglich¬ 
keit  einer  Einzelnadelansteue- 
rung.  Allerdings  kann  man  ein 
Zeichen  selbst  definieren  und  so 

—  allerdings  sehr  umständlich 

—  Grafik  drucken.  Dazu  defi¬ 
niert  man  sich  das  Zeichen  als 
geeignetes  Grafiksymbol,  fährt 
durch  Ausgabe  einer  Reihe  von 
Blanks  an  die  richüge  Position, 
druckt  das  Zeichen  und  veran¬ 
laßt  dann  einen  Wagenrücklauf 
ohne  Zeilenvorschub.  Nun  wird 
das  nächste  Grafikzeichen  defi¬ 
niert  und  das  ganze  Spiel  wie¬ 
derholt  sich.  Mit  dieser  Metho¬ 
de  ist  sogar  eine  Grafik- 
Hardcopy  möglich  (siehe  64’er, 
5/84,  Seite  74:  »Ein  eigentlich  un¬ 
mögliches  Programm«). 


Von  Kassette  auf  Floppy? 

Ich  möchte  mir  demnächst  ei¬ 
ne  Floppy  1541  kaufen.  Kann 
man  mehrere  Programme,  die 


Adreß-  und  Telefonregi¬ 
ster  aus  Ausgabe  5  mit 
Datasette? 

Ich  möchte  gerne  »Adress- 
und  Telefonregister«  aus  der 
Ausgabe  5  mit  Datasette  ver¬ 
wenden,  weiß  aber  als  totaler 
Anfänger  nicht,  wie  ich  das  Pro¬ 
gramm  umschreiben  muß.  Ist 
dies  überhaupt  möglich? 

Dieter  Plaum 

Mit  einigen  Änderungen  läßt 
sich  das  Programm  auch  mit  Da¬ 
tasette  verwenden: 

990  ...:OPEN  1,1,0 
1050  ...:OPEN  1,1,1 
2040  ...:OPEN  1,1,1 
Bei  dieser  Version  funktioniert 
auch  das  »SUCHEN»  und  die 
»AUSGABE  SORTIERT. 

Jürgen  Zier 


terher  zu  verändern,  indem  Sie 
mit  dem  Cursor  in  diese  Zeile 
gehen  und  nach  einer  Ände¬ 
rung  wieder  mit  RETURN  ver¬ 
lassen.  Dann  wird  automatisch 
der  letzte  Teil,  der  sich  in  der 
dritten  Reihe  befindet,  abge¬ 
schnitten.  Zum  Editieren  geben 
Sie  am  besten  die  komplette  Zei¬ 
le  mit  den  entsprechenden  Ab¬ 
kürzungen  noch  einmal  ein. 


Grafik  mit  1526? 

Ich  besitze  den  1526-Drucker 
von  Commodore.  Wie  kann  man 
ihn  grafikfähig  machen? 

Percy  Dahm 


man  auf  Kassette  hat  (gekaufte 
Spiele  und  anderes),  auf  eine 
einzige  Diskette  speichern  um 
Platz  zu  sparen?  Wenn  ja,  wie? 

Andreas  Schmelzer 


Natürlich  kann  man  auch  meh¬ 
rere  Programme  auf  einer  Dis¬ 
kette  abspeichern.  Kommerziel¬ 
le  Software  auf  Kassette  ist  je¬ 
doch  in  der  Regel  mit  Autostart 
und  einem  Softwareschutz  ver¬ 
sehen,  so  daß  ein  Kopieren  in 
der  Regel  nicht  möglich  ist. 
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Druckerroutinen  um¬ 
schreiben? 

Wie  kann  ich  Programme,  die 
für  den  Drucker  VC  1526  ge¬ 
schrieben  sind  und  dessen  Fä¬ 
higkeiten  ausnutzen  für  den  VC 
1525  umschreiben? 

Bruno  Schiffer 

Der  VC  1526  verfügt  über  eine 
Reihe  komfortabler  Befehle  zur 
formatierten  Ausgabe,  die  auf 
dem  VC  1525  nicht  vorhanden 
sind.  Diese  Formatierungsbe¬ 
fehle  müssen  für  den  VC  1525 
durch  Software  ersetzt  werden. 
Im  Prinzip  geht  es  darum,  eine 
Art  PRINT  USING-Routine  zu 
schreiben.  Am  besten  schreibt 
man  alle  Programmteile,  die 
Ausgaben  an  den  Drucker  lie¬ 
fern,  völlig  neu. 


»Strubs«  mit  Datasette? 

Warum  bringen  verschiedene 
POKEs,  die  im  Commodore- 
Basic  einwandfrei  funktionieren 
(zum  Beispiel  Listschutz)  mit  Si¬ 
mons  Basic  das  Programm  zum 
Abstürzen? 

Sebastian  Obermayr 

»Strubs«  kann  leider  nur  mit 
der  Floppy  arbeiten,  ca  mehre¬ 
re  Files  gleichzeitig  geöffnet 
werden. 


POKEs  im  Simons  Basic? 

Warum  bringen  verschiedene 
POKEs,  die  im  Commodore- 
Basic  einwandfrei  funktionieren 
(zum  Beispiel  Listschutz)  mit  Si¬ 
mons  Basic  das  Programm  zum 
abstürzen? 

Sebastian  Obermayr 

Einige  Adressen  der  Zeropa¬ 
ge  werden  von  Simons  Basic  an¬ 
ders  belegt,  so  daß  eine  Reihe 
von  POKE-Befehlen  nicht  mehr 
funktioniert. 


Nochmals  Simons  Basic 

Benötigt  Simons  Basic  einen 
Teil  des  Basic-RAMs?  Wenn  ja, 
wieviel? 

Lars  Steubesand 
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Simons  Basic  belegt  die  obe¬ 
ren  acht  KByte  des  Anwender- 
RAM,  der  verfügbare  freie  Spei¬ 
cher  für  Basicprogramme  redu¬ 
ziert  sich  also  um  diese  acht 
KByte. 


Resettaste  für  VC  20? 

Sind  die  Anschlüsse  für  eine 
Resettaste  am  Userport  von  VC 
20  und  C  64  identisch?  Ist  so  ei¬ 
ne  Taste  auch  am  C  64  an¬ 
schließbar? 

Adrian  Schneider 

Die  beiden  Userports  sind 
nicht  100%  identisch,  jedoch  gibt 
es  beim  Anschluß  eines  Resetta¬ 
sters  keine  Unterschiede.  Durch 
Verbindung  von  Pin  1  und  Pin  3 
erfolgt  bei  beiden  Computern 
ein  Reset. 


Rauhkopien  strafbar? 

Darf  man  gekaufte  Software 
auf  Leerkassetten  kopieren  und 
verkaufen?  Oder  ist  das  gesetz¬ 
lich  verboten,  so  daß  eine  Be¬ 
strafung  erfolgt? 

Maik  Rogalla 

Das  Kopieren  und  Weiterver¬ 
käufen  von  fremder  Software  ist 
ein  Verstoß  gegen  das  Urheber¬ 
recht  und  wird  entsprechend 
geahndet.  Man  muß  in  jedem 
Falle  mit  hohen  Schadenersatz¬ 
forderungen  der  Herstellerfir¬ 
men  rechnen. 


Bauanleitung  für  EPROM 
Brenner 

Wer  hat  eine  Bauanleitung  für 
einen  EPROM  Brenner  für  C  64? 
Ausgabe  4/84. 

Ich  habe  eine  Bauanleitung 
zum  Programmieren  der  ICs 
2716,  2732  und  2764  entwickelt. 
Diese  besteht  aus  einem  Layout 
mit  Bauanleitung  plus  dazugehö¬ 
render  Software.  Die  Kosten  sind 
wegen  der  wenigen  Bauteile 
sehr  gering  und  liegen  noch  un¬ 
ter  50,—  DM  (o.  Nullpontfas- 
sung). 

Bernd  Bause,  Bahnhofstr.  21, 
2000  Hamburg  55. 


Hilferuf 

Ich  habe  so  wenig  Program¬ 
me.  Bitte !  Bitte !  Schickt  mir  wel¬ 
che. 

Sven  Reichel 

So  ergeht  es  wohl  jedem  An¬ 
fänger.  Wir  von  der  64’er  Redak¬ 
tion  empfehlen  das  64 'er  Maga¬ 
zin  als  Abhilfe. 


Apple-Software 
für  den  C  64 

Wie  Sie  in  Ausgabe  4/84,  Seite 
9  schreiben,  ist  bei  Mimic  Sy¬ 
stems,  Kanada  ein  sogenanntes 
AP-Modular  Pak,  das  erlaubt 
Apple  II-kompatible  Soft-  und 
Hardware  am  C  64 zu  betreiben, 
erhältlich. 

Leider  geben  Sie  die  genaue 
Adresse  des  Anbieters  nicht  an. 
Nun  mc  s  ich  Sie  um  die  ge¬ 
naue  Adresse  von  Mimic  bitten. 

Walter  Wagner 

Hier  ist  die  Adresse: 

Mimic  Systems 

Pioneer  Software,  Inc.  ( #  217  — 
620  View  Street,  Victoria,  BC, 
Canada,  V8W  176). 


Programme  weg  beim 
Reset? 

Ich  habe  in  meinen  C64  eine 
Resettaste  eingebaut,  und 
wenn  ich  diese  benutze,  ist  das 
Programm  weg.  Wie  kann  ich 
dieses  Programm  wieder  her¬ 
einholen?  Suche  dazu  die  PEEKs 
und  POKEs  mit  Adressen. 

Arndt  Wörau 

Nach  einem  Reset  bleiben  Ma¬ 
schinenprogramme  nach  wie 
vor  im  Speicher  erhalten  und 
können  wieder  mit  entsprechen¬ 
dem  Sys  gestartet  werden.  (Dies 
ist  jedoch  nicht  der  Fall  bei  Ma¬ 
schinenspracheprogrammen, 
die  im  Kassettenpuffer  liegen 
[dez.  828-1019],  da  dieser  bei  ei¬ 
nem  Reset  gelöscht  wird.)  Bei 
Basicprogrammen  muß  man 
schon  mehr  machen,  um  es  wie¬ 
der  herzuholen: 


POKE  2049,99:  POKE  2050,99: 
POKE  45, X:  POKE  46, Y:  SYS 
42291 

Dabei  sind  X  und  Y  die  Werte, 
die  man  vor  Drücken  des  Reset- 
Knopfes  durch 

?PEEK(45);PEEK(46)  abfragen 
sollte.  Kommt  man  aus  Versehen 
auf  den  Knopf  und  weiß  den  In¬ 
halt  dieser  Speicherstellen  nicht 
mehr,  so  empfiehlt  es  sich,  in  die 
Speicherstellen  45  und  46  ange¬ 
nommene  Werte  für  die  Pro¬ 
grammendadresse  zu  POKEn 
(45  =  low  Byte,  46  =  high  Byte). 


Ein  Tip  des  Autors 

In  meinem  Programm  »Adreß- 
und  Telefonregister«,  das  in  der 
Ausgabe  5/84  im  64'er-Magazin 
veröffentlicht  'wurde,  habe  ich 
zur  Eingabe  einer  Telefonnum¬ 
mer  fünf  Stellen  vorgesehen.  Um 
mehr  Stellen  für  eine  Eingabe  zu 
ermöglichen,  ist  die  Zuweisung 
der  Variable  1  in  Zeile  1970  zu 
ändern  (zum  Beispiel  1  =  8  für  8 
Telefonziffern).  Die  nachstehen¬ 
den  Befehle  in  derselben  Zeile 
bleiben  unverändert. 

Außerdem  möchte  ich  noch 
auf  einen  »Schönheitsfehler«  hin- 
weisen:  In  Zeile  1060  muß  es  statt 
»for  i  =  o  to  am*  heißen:  »for  i=0 
to  an«.  Da  o  allerdings  im  Pro¬ 
gramm  nicht  als  Variable  be¬ 
nutzt  wird  und  daher  immer  *  ist, 
hat  dieser  Fehler  keine  Auswir¬ 
kungen  auf  den  Programmab¬ 
lauf. 

Bei  der  Eingabe  der  Datensät¬ 
ze  sollte  darauf  geachtet  wer¬ 
den,  nicht  die  »f7«-Taste  zu 
drücken,  um  etwa  ein  Feld  frei  zu 
lassen,  da  sonst  die  Datei  später 
nicht  korrekt  abgespeichert 
werden  kann.  Soll  ein  Feld  frei 
gelassen  werden,  so  ist  die  Leer¬ 
taste  (und  »return«)  zu  drücken. 

Arne  Weitzel 


Wer  kennt  Master  64? 

Ich  möchte  meine  mit  Master 
64  entwickelten  Programme  auf 
8032  übertragen  und  suche  In¬ 
formationen  bzw.  Anwender 
von  Master  Version  64  und  8032. 
Wer  kann  helfen? 

Walter  Hochwald 
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So  erging  es  auch  mir  an  einem 
trüben  Wintertag,  kurz  vor  den 
ins  Haus  stehenden  Festtagen 
und  der  damit  verbundenen  Freizeit 
zwischen  den  Tagen.  Der  erste 
Gang  führte  kurzentschlossen  in  ei¬ 
nen  für  gewöhnlich  gut  sortierten 
Zeitschriftenladen.  Nach  einigem 
Stöbern  im  Berg  der  Computerzeit¬ 
schriftenverklärte  sich  der  schon  et- 
.  was  trübe  Gesichtsausdruck  des  La¬ 
deninhabers  zu  seligem  Lächeln, 
als  er  den  Rechnungsbetrag  mit 
spitzem  Bleistift  und  unter  heftigen 
Zungenbewegungen  ermittelte.  So 
war  denn  zumindest  für  ihn  das 
Weihnachtsfest  gesichert,  ich  dage¬ 
gen  erklomm  mit  meiner  Informa¬ 
tionslast  die  heimischen  Treppen 
und  fing,  kaum  wieder  zu  Atem  ge¬ 
kommen,  damit  an,  mein  Wissen 
über  Drucker  zu  vervollkommnen. 

Ein  rascher  Blick  in  die  schon 
leicht  schwindsüchtige  Brieftasche 
erleichterte  den  Entscheidungspro¬ 
zeß  erheblich,  schon  nach  relativ 
kurzer  Zeit  stand  fest,  daß  ein  Schön¬ 
schreibdrucker  nicht  in  Frage  kam. 
Was  blieb,  waren  die  einfachen  Ma¬ 
trixdrucker,  darunter  auch  der  MPS 
801  von  Commodore,  der  gerade  als 
»Neuheit«  auf  dem  deutschen  Markt 
erschienen  war. 

Mit  den  Informationen  über  drei  in 
Frage  kommende  Drucker  im  Geist 
und  in  der  Hand,  begab  ich  mich 
nun  auf  die  Suche  nach  einem  Com¬ 
putershop,  um  das  theoretisch  erar¬ 
beitete  Wissen  praktisch  zu  über¬ 
prüfen.  Dieses  Unterfangen  stellt  in 
einem  computertechnischen  Ent¬ 
wicklungsland,  das  diese  unsere 
Republik  nun  einmal  ist,  ein  größe¬ 
res  Problem  dar,  zumal  in  einer 
Kleinstaat  wie  Hamburg.  Da  Com¬ 
puterläden  grundsätzlich  mehrere 
Kilometer  vom  nächsten  freien  Park¬ 
platz  entfernt  liegen  —  eigene  Park¬ 
plätze  lohnen  sich  wohl  nicht,  da  die 
Kunden  zum  größten  Teil  Jugendli¬ 
che  sind  —  ergab  sich  die  emmalige 
Gelegenheit,  etliche  Pfunde,  die 
sich  in  mitternächtlichen  Sitzungen 


am  Computer  angestaut  hatten,  wie¬ 
der  abzulaufen. 

Endlich  war  der  erste  Laden  er¬ 
reicht,  also  raus  mit  dem  bereits  im 
Geiste  geübten  Satz:  »Ich  wollte  mir 
mal  Drucker  für  den  C  64  angucken 
und  ...« 

Ungläubiges  Staunen  beim  Ver¬ 
käufer:  »Drucker?  Ham  wir  nich  da, 
sind  aber  bestellt.« 

Darauf  ungläubiges  Staunen  beim 
Kunden,  (»Aha«)  gefolgt  vom  ra¬ 
schen  Ortswechsel.  Schauplatz  des 
nächsten  Dramas  ist  die  Computer¬ 
abteilung  eines  großen  Kaufhauses. 
Inmitten  einiger  Taschenrechner  fri¬ 
stet  ein  einsamer  Homecomputer 
sein  Dasein,  von  fachü .  idigem  Per¬ 
sonal  vor  kaufwütigen  Kunden  be¬ 
schützt:  »Das  ist  unser  Letzter,  den 
können  wir  nicht  rausgeben...  — 
aber  wir  haben  schon  neue  be¬ 
stellt.« 

Also  rein  ins  Gewühl.  «Ham  se 
mal'n  Moment  Zeit?  Ich  wollt  mir 
Drucker  für...« 

»Karl,  kommste  mal,  da  will  einer 
’nen  Drucker  kaufen.«  —  »Drucker? 
Ham  wir  nich,  sind  aber...« 

Man  soll  ja  die  Hoffnung  nie  aufge- 
ben,  also  weitergemacht  mit  der 
Stadtrundfahrt.  Und  tatsächlich,  im 
siebten  oder  achten  Laden  ge¬ 
schieht  das  Wunder:  »Drucker?  Hat¬ 
ten  wir  bestellt,  sind  gerade  gekom¬ 
men.  Was  darf's  denn  sein?« 

Ehrfurchtsvoll  bestaunt  der  ent¬ 
zückte  Kunde  die  sauber  aufgereih¬ 
te  Menge  der  Drucker:  Beide  ne¬ 
beneinander. 

Der  Ladenschluß  ist  schon  be¬ 
drohlich  nahe,  also  wüdentschlos- 
sen  zugeschlagen.  »Was  kostet  denn 
bei  Euch  der  GP  500  und  was  der 
MPS  801?«  —  »Hä?  Das  ist  doch  ein 
und  dasselbe  Gerät,  nur  mit  nem  an¬ 
deren  Gehäuse...« 

Aha,  das  stand  in  keiner  der  gele¬ 
senen  Zeitungen.  Mißtrauisch  ge¬ 
worden,  kommt  die  nächste  Frage: 
»Der  sieht  aber  innen  drin  dem  GP 
100  verdammt  ähnlich..« 

»Is  ja  auch  das  Nachfolgemodell,  lei¬ 


ser,  mit  verbessertem  Schriftbild 
und  nem  ganz  neuen  Farbbandsy¬ 
stem...« 

Naja,  lange  Rede,  gar  kein  Sinn,  es 

Naja,  lange  Rede,  gar  kein  Sinn,  es 
gibt  viel  zu  drucken,  packen  wir's 
das  im  Autohandel.  Zurück  zum  ei¬ 
genen  Fahrzeug,  unter  einem  Arm 
den  Karton  Papier,  unter  dem  ande¬ 
ren  den  Drucker.  Nach  kurzer  Dis¬ 
kussion  mit  einer  netten  Politesse, 
die  gerade  dabei  ist,  die  Scheiben¬ 
wischer  festlich  zu  schmücken,  kann 
endlich  die  Heimfahrt  durch  den 
Dschungel  des  Feierabendver¬ 
kehrs  angetreten  werden 

Zuhause  angekommen,  wird  erst¬ 
mal  ausgepackt  und  die  Betriebsan¬ 
leitung  studiert.  Dabei  kristallisiert 
sich  immer  klarer  das  erste  Druck¬ 
vorhaben  heraus:  Eine  deutsche 
Fassung  des  Heftchens  muß  her.  Da 
der  durchschnittliche  Mitteleuropä¬ 
er  neben  seiner  Muttersprache  und 
diversen  Computerdialekten  auch 
noch  umfassende  Kenntnisse  des 
Englischen  besitzt,  fällt  es  nicht 
schwer  zu  erraten,  was  mit  den  An¬ 
weisungen  des  Handbuches  ge¬ 
meint  ist. 

Schließlich  sind  Papier  und  Farb¬ 
bandkassette  eingelegt,  der  erste 
Versuch  kann  starten.  Schalter  auf 
»Test«  und  ab  dafür.  Und  siehe  da, 
der  Verkäufer  hat  nicht  gelogen, 
der  Drucker  ist  vergleichsweise  lei¬ 
se.  Statt  mit  den  Phonzahlen  eines 
startenden  Jumbos  säuselt  der 
Druckkopf  mit  Diskothekenniveau 
über  das  Papier. 

Da  wenigstens  das  Schriftbild  den 
Versprechungen  entspricht,  kann 
der  Test  abgeschlossen  werden, 
der  Drucker  wird  jetzt  mit  dem  Com¬ 
puter  verbunden.  Dies  geschieht 
mittels  des  beigelegten  Buskabels, 
das  die  stattliche  Länge  von  60  cm 
aufweist.  Man  kann  sich  also  aussu¬ 
chen,  ob  einem  die  Nadeln  von  links 
oder  rechts  ins  Ohr  knattern...  Nun 
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ja,  so  wird  man  wenigstens  zu  einem 
kompakten  Aufbau  der  Computer¬ 
anlage  gezwungen,  es  bleibt  sogar 
noch  Platz  auf  dem  Tisch  für  Aschen¬ 
becher  und  eine  Flasche  des  von 
ortsansäßigen  Brauereien  geliefer¬ 
ten  Kühlmittels. 

Nun  lassen  wir  in  Gedanken  zwei 
Monate  verstreichen,  wir  befinden 
uns  im  Januar  des  Jahres  1984.  Nach 
150  bis'  200  Blatt  Papier  wird  das 
Farbband  allmählich  schwächer, 
ein  frisches  muß  her.  Halt,  da  war 
doch  was?  Ach  ja,  im  Handbuch 
steht  was  von  austauschbarem  In- 
ker.  Das  muß  das  Ding  sein,  wo  die 
Tinte  drin  ist.  Da  das  Farbband 
selbst  noch  gut  ist,  tuts  also  auch  so 
eine  Austauschkartusche.  Im  Zuge 
der  nun  folgenden  Stadtbesichti¬ 
gung  kommt  insgesamt  zwölfmal  die 
Standardantwort  des  Fachperso¬ 
nals:  »Ham  wir  nich,  is  aber  be¬ 
stellt...« 

Eine  Woche  später  liegt  das  gute 
Druckbild  in  den  letzten  Zügen.  Es 
hilft  nichts,  wenn  es  keine  Inker  gibt, 
muß  halt  ein  komplettes  Farbband 
her.  Also  machen  wir  mal  etwas 
Neues,  nämlich  eine  kleine 
Sightseeing-Tour  durch  die  Compu¬ 
terläden  und  Kaufhäuser.  Der  ge¬ 
neigte  Leser  wird  sich  wohl  schon 
denken  können,  wie  die  meistgege- 
bene  Antwort  auf  mein  Kaufbegeh¬ 
ren  lautete.... 

Irgendwo  muß  es  dann  eine  Pan¬ 
ne  in  der  Logistik  gegeben  haben, 
denn  einige  Tage  später  bekam  ich 
mein  Farbband,  natürlich  ausge¬ 
rechnet  in  dem  Laden,  wo  ich  es  nie 
vermutet  hätte.  Zwar  kostete  der 


Früher  oder  später  kommt  im  Leben  eines  Computerbesitzers  der  Tag,  an  dem  er 

beschließt,  seinen  Gerätepark  um  den  lange 
fälligen  Drucker  zu  erweitern. 


ganze  Spaß  inklusive  der  Spritko¬ 
sten  weit  über  fünfzig  Ma » 1  aber  im¬ 
merhin  konnte  ich  wieder  drucken. 

Bereits  nach  fünfzehn  Druckzeilen 
mit  dem  .frischen  Farbband  zeigte 
sich  die  Überlegenheit  der  Neukon¬ 
struktion  des  Farbbandantriebes. 
Mit  einem  fast  unhörbaren  Ratschen 
verabschiedete  sich  eine  winzige 
Feder  im  Werte  von  vielleicht  zwan¬ 
zig  Pfennig.  Folge  war,  daß  das 
Farbband  nicht  mehr  mitlief,  da¬ 
durch  hämmerten  die  Nadeln  im¬ 
mer  kräftig  auf  die  gleiche  Stelle. 

Natürlich  war  ich  gerade  mit  der 
Kühlmittelbeschaffung  beschäftigt, 
bemerkte  den  Fehler  also  relativ 
spät.  Nun  ist  guter  Rat  teuer,  gute  Re¬ 
paratur  ist  natürlich  noch  teurer. 
Aber  man  hat  ja  einen  technischen 
Beruf  gelernt  und  läßt  sich  nicht  so 
leicht  entmutigen.  Also  her  mit  der 
Werkzeugtasche  und  ohne  Rück¬ 
sicht  auf  die  Garantie  ran  an  den 
Feind,  sprich  Drucker.  Der  Fehler 
war  auch  schnell  festgestellt,  näm¬ 
lich  jene  winzige  Feder.  Der  leid¬ 
geprüfte  Computerbesitzer  ahnt 
schon,  wie  es  weitergeht.  Ein  Ersatz¬ 
teil  muß  her,  und  schon  Edsel  D. 
Murphy  stellte  in  seinen  Gesetzen 
über  das  Verhalten  lebloser  Gegen¬ 
stände  fest: 

1.  Die  Ausfallhäufigkeit  eines  Bautei¬ 
les  ist  umgekehrt  proportional  zu 
seiner  Wichtigkeit. 

2.  Die  Zugänglichkeit  eines  Bautei¬ 


les  ist  umgekehrt  propotional  zu  sei¬ 
ner  Aufallhäufigkeit. 

3.  Die  Erhältlichkeit  eines  Bauteiles 
ist  umgekehrt  proportional  zu  seiner 
Wichtigkeit  und 

4.  was  schiefgehen  kann,  geht  auch 
schief. 

Das  Melodram  mit  dem  sattsam 
bekannten  Titel  »Stadtrundfahrt« 
wurde  also  wieder  einmal  auf  den 
Spielplan  gesetzt,  brachte  aber 
diesmal  ein  völlig  anderes  Einspiel¬ 
ergebnis:  Nicht  ein  einziges  Mal  fiel 
die  Bemerkung  »Ham  wir  nich,  sind 
aber  bestellt...«  Stattdessen  Schul¬ 
terzucken  in  den  Kaufhäusern  und 
Ratlosigkeit  in  den  Fachgeschäften. 
»Bestellen  wir,  dauert  aber  minde¬ 
stens  sechs  Wochen,  wenn  nich  län¬ 
ger...« 

Zum  Überlaufen  wurde  das  Faß 
dann  von  einem  Servicetechniker 
gebracht  (Firmenwerbung:  »Eige¬ 
ner  Service«):  »Ich  hab  gerade  eine 
Feder  bestellt.  Der  Drucker  da  hin¬ 
ten  hat  den  gleichen  Fehler.  Da  muß 
ich  wohl  noch’n  paar  Federn  nach¬ 
bestellen...«  —  Der  drohende  Herz¬ 
infarkt  ob  solcher  fachkundigen  Äu¬ 
ßerung  muß  schon  deutlich  zu  er¬ 
kennen  gewesen  sein,  denn  noch 
bevor  ich  die  Gelegenheit  fand, 
mich  dazu  zu  äußern,  wurde  ich  aus 
der  »Werkstatt«  herauskomplimen¬ 
tiert:  »Keine  Kunden  in  der  Werk¬ 
statt...«  Mein  streßgeplagtes  Ausse- 

Fortsetzung  auf  Seite  22 
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Fortsetzung  von  Seite  20 

hen  muß  dann  bei  meinen  Arbeits¬ 
kollegen  Mitleid  erweckt  haben, 
denn  nach  etlichen  Stunden  der  Su¬ 
che  in  Grabbelkisten  und  Schubla¬ 
den,  fand  sich  das  Material,  aus  dem 
man  eine  entpsrechende  Feder  her¬ 
steilen  konnte,  Mit  viel  Mühe  wurde 
eine  Feder  gebogen  und  eingebaut, 
schließlich  kam  doch  noch  das  Er¬ 
folgserlebnis:  Zehn  Tage  war  der 
Drucker  krank,  jetzt  druckt  er  wie¬ 
der,  Gottseidank...  Mitnichten. 


Kein  Frust 


Durch  das  Drucken  mit  stehen¬ 
dem  Farbband,  war  dieses  doch  arg 
in  Mitleidenschaft  gezogen  worden. 
Es  verhakte  sich  ständig,  wodurch 
die  Vorteüe  des  Kassettensystems 
erst  deutlich  wurden.  Statt  mühsa¬ 
mer  Fummelei  genügt  ein  Griff  und 
man  hat  die  Kassette  in  der  Hand 
und  kann  das  Band  wieder  ordent¬ 
lich  einspulen.  Wahrscheinlich  hat 
man  gerade  dieses  Vorteils  wegen 
die  Kassette  eingeführt. 

Es  folgte  der  vorläufig  letzte  Akt 
des  Dramas,  eine  Variation  des  The¬ 
mas  »Farbbandkauf«.  Die  Beschrei¬ 
bung  des  kurzen  Einkaufsbummels 
erspare  ich  mir,  irgendwie  und  ir¬ 
gendwann  bekam  ich  schließlich  ei¬ 
ne  neue  Kassette.  Hoffnungsfroh 
wurde  selbige  in  den  Drucker  ge¬ 
legt  urd  dieser  eingeschaltet.  Bei 
dieser  Gelegenheit  stellte  sich  her¬ 
aus,  daß  die  Farbbandkassetten  of¬ 
fenbar  eine  größere  Odyssee  hinter 
sich  haben,  wenn  sie  auf  deutschen 
Ladentischen  ankommen.  Ein  der¬ 
art  blasses  Schriftbild  hatte  ich  noch 
nicht  einmal  beim  ersten  Farbband, 
das  bis  zum  letzten  Tropfen  im 
Drucker  verblieben  war... 

Die  Umtauschaktion  gestaltete 
sich  kurz  und  schmerzlos,  schon 
nach  fünfzehn  Minuten  intensiver 
Fachsimpelei  war  man  bereit,  zuzu¬ 
geben,  daß  es  möglicherweise  tat¬ 
sächlich  etwas  schwach  war  und 
händigte  mir  ein  anderes  Band  aus. 

Wer  nun  aus  dem  Berichteten  den 
Schluß  zieht,  daß  ich  mit  dem 
Drucker  MPS  801  unzufrieden  bin, 
der  irrt.  Kinderkrankheiten  sind  da¬ 
zu  da,  überwunden  zu  werden,  man 
kann  keine  Vorbeugungsmaßnah¬ 
men  treffen,  außer  vielleicht  schon 
mal  etwas  Baldrian  für  den  Benutzer 
zu  kaufen.  Der  MPS  801  bietet  für 
sein  Geld  schon  eine  Menge  Lei¬ 
stung,  woran  es  mangelt,  ist  die  Be¬ 
treuung  durch  den  sogenannten 
Fachhandel.  Hier  kann  und  muß 
noch  eine  Menge  verbessert  wer¬ 
den. 

(Reinhard  Schrutzki/gk) 

22  Üiüu* 


Wie  arbeitet  nun  dieser  Sprach¬ 
synthesizer?  Er  benutk  das 
Verfahren  der  Phonemsynthe¬ 
se,  wobei  wir  schon  wieder  bei  der 
nächsten  Frage  sind:  Was  ist  Pho¬ 
nemsynthese? 

Mit  diesem  Verfahren  ist  es  mög¬ 
lich,  jedes  beliebige  Wort  synthe¬ 
tisch  wiederzugeben.  »Phoneme« 
sind  die  vom  Sprachsynthesizer  er¬ 
zeugten  Laute,  die  sehr  wenig  Spei¬ 
cherplatz  benötigen.  Der  SDP  120 
benutzt  64  Phoneme  (Einschließlich 
unhörbarer  Steuercodes.)  Daß  es 
zwischen  gesprochenen  und  ge¬ 
schriebenen  Worten  große  Unter¬ 
schiede  gibt,  merkt  man  spätestens 
wenn  man  versucht,  einfache  Worte 
in  Phonemschreibweise  zu  erstel¬ 
len. 

Das  Wort  »Datei«  wird  aus  den  5 
Phonemen  d  -  al  - 1  -  a  -  y  zusammen¬ 
gesetzt.  Bei  »Diskette«  wird  die 
Schreibweise  schon  etwas  schwieri¬ 
ger:  d  -  il  -  ss  -  k  -  ael  - 1  -  ael.  Am  Titel 
dieser  Zeitschrift  hat  man  allerdings 
schon  ganz  schön  zu  kauen.  Für 
»64’er«  benötigt  man  folgende  14 
Phoneme:  f  -  il  -  r  -ul  -  n  -  d  -  ss  -  ael- 
ch  - 1  -  ss  -  il  -  g  -  ael  -  r. 


Es  taucht  sicherlich  bei 
einigen  der  Wunsch 
auf,  ihrem 
Commodore  64  das 
Sprechen  beizubringen. 

Wir  haben  mit 
den  SDP  120  eine 
haidwaremäßige 
Lösung  getestet. 

Welche  Vorteile  hat  nun  diese  Art 
der  Spracherzeugung?  Der  wohl 
größte  Vorteil  liegt  im  minimalen 
Speicherbedarf  eines  Wortes.  Da 
ein  Phonem  durch  jeweils  ein  Byte 
dargestellt  wird,  benötigt  man  für 
das  Wort  »Datei«  nur  5  Byte.  Ein  wei¬ 
terer  Vorteil  liegt  darm,  daß  der 
Sprachsynthesizer  jedes  beliebige 
Wort  oder  jeden  beliebigen  Satz  sa¬ 
gen  kann,  da  er  ja  nicht  an  einen  be¬ 
stimmten  Wortschatz  gebunden  ist. 
Das  Phonem-Verfahren  bringt  je¬ 
doch  nicht  nur  Vorteile,  sondern 
birgt  auch  einige  Nachteile.  Vokale 
und  einige  Konsonanten  können  von 
Sprachsynthesizer  recht  gut  nach- 
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Hallo, 

hier  spricht 
der  Computer 


Grundlauten,  Ähnlich  verhält  es 
sich  bei  den  Betonungsstufen,  die 
einen  Kompromiß  darstellen  zwi¬ 
schen  Vergrößerung  der  Amplitude 
(eigentliche  Betonung)  und  der  An¬ 
hebung  der  Stimmfrequenz.  Da  im 
Deutschen  die  resultierende  Anhe¬ 
bung  der  Stimmfrequenz  zu  groß  ist, 
führt  dies  zu  unnatürlichen  klingen¬ 
den  Anhebungen  der  Sprachmelo¬ 
die.  Besser  wäre  eine  getrennte 
Steuerbarkeit  von  Amplitude  und 
Stimmfrequenz. 

Der  Sprachsynthesizer  wird  an 
User-Port  angeschloßen  und  kann 
somit  von  allen  CBM-  Geräten  (CBM 
2001  bis  C  64)  angesteuert  werden, 
Das  Design  des  Gerätes  ist  sehr  ein¬ 
fach.  An  der  Frontseite  befinden 
sich  der  Ein/Aus-Schalter  und  zwei 
Drehregler  um  die  Frequenz  und 
Lautstärke  zu  ändern  (siehe  Bild). 

Wie  kann  man  nun  die  Sprachaus- 
gabe  im  eigenen  Programm  ver¬ 
wenden?  Dies  ist  etwas  aufwendig. 
Zuerst  muß  man  mit  Hilfe  eines  vom 
Hersteller  mitgelieferten  Pro¬ 
gramms  den  benötigten  Wortschatz 
definieren.  Dieser  wird  dann  als  se¬ 
quentielles  File  auf  Diskette  gespei¬ 
chert  und  kann  vom  eigenen  Pro¬ 
gramm  aus  mit  Hilfe  eines  zirka 
40zeiligen  Unterprogramms  aufge¬ 
rufen  werden. 

Der  Sprachsynthesizer  SDP  120  ist 
zum  Preis  von  487  Mark  von  Speech 
Design  erhältlich, 

Fazit: 

Der  Sprachsynthesizer  SDP  120 
findet  sowohl  als  nette  Spielerei  für 
Hobbyprogrammier  als  auch  in  pro¬ 
fessionellen  Programmen  seine  An¬ 
wendungsgebiete. 

Gesam  tüberblick: 

Verständlichkeit  :  gut 

Programmierung  :  umständlich 

Dokumentation  :  sehr  gut 

Sprachbeispiele  :  sehr  gut 

Gesamtnote  :  gut¬ 

befriedigend 

(Christian  Quirin  Spitzner/rg) 

Bezugadresse: 

Speech  Design,  Altostraße  11, 8000  München  60 


geahmt  werden,  während  einige 
synthetische  Konsonanten  kaum 
wiederzuerkennen  sind.  Darunter 
leidet  natürlich  die  Verständlichkeit 
des  Systems. 

Vom  Hersteller  erhält  man  ein 
sorgfälltig  geschriebenes  28seitiges 
Handbuch,  das  neben  technischen 
Einzelheiten  und  der  Schaltungen 
einschließlich  Platinenbestückun¬ 
gen,  den  Umgang  mit  dem  Gerät 
erklärt  und  Hinweise  gibt,  wie  man 
bei  der  Programmierung  von  Wor¬ 
ten  Vorgehen  soll.  Es  ist  auch  eine  Li¬ 
ste  von  250  aussprachemäßig  defi¬ 
nierten  deutschen  Wörtern  beige¬ 
fügt. 

Das  Herzstück  des  Sprachsynthe¬ 
sizers  ist  der  Baustein  SC-01A.  Die¬ 
ser  Baustein  besitzt  einen  Vorrat  von 
64  Lauten  (= Phoneme),  wovon  drei 
Steuercodes  sind  (zwei  Pausen  und 
1  Stop-  Code).  Die  Phoneme  können 
jeweils  in  vier  sogenannten  Beto¬ 
nungsstufen  erzeugt  werden,  was 
bei  den  Steuerlauten  natürlich  be¬ 
deutungslos  ist.  Bei  den  Vokalen  be¬ 
wirkt  das  Setzen  der  Betonungsstu¬ 
fen  ein  starkes  Anheben  der  Stimm¬ 
lage,  aber  keine  Erhöhung  der  Am¬ 


plitude,  was  recht  unnatürlich  klingt. 
Bei  den  stimmhaften  Konsonanten 
bewirkt  das  Setzen  einer  Betonung 
ebenfalls  ein  Anheben  der  Tonlage, 
was  aber  für  die  Betonung  von  Kon¬ 
sonanten  im  Deutschen  ungeeignet 
ist.  Eine  Zunahme  der  Lautstärke  er¬ 
folgt  nicht,  und  so  bleiben  Akzente 
auf  stimmlosen  Konsonanten  gänz¬ 
lich  ohne  Wirkung.  Im  Deutschen 
werden  aber  Konsonanten  ebenso 
wie  die  Vokale  betont,  was  durch  ein 
Anhebung  der  Lautstärke  und  ge- 
gebenfalls  eine  leicht  Anhebung 
der  Stimmlage  erfolgen  sollte.  In  vie¬ 
len  Fällen  kann  die  Betonung  von  Sil¬ 
ben  durch  Verlängerung  der  in  ih¬ 
nen  enthaltenen  Vokalen  erzielt  wer¬ 
den. 

Mit  den  64  Phonemen  und  den  Be¬ 
tonungsstufen  kommt  man  auf  4  mal 
64  =  256  Codes,  das  entspricht  ge¬ 
nau  einem  Byte  oder  einem  8  Bit  lan¬ 
gen  Datenwort.  Dies  ist  für  eine 
preisgünstige  Konstruktion  und  für 
die  einfache  Programmierung  vor¬ 
teilhaft,  vom  Gesichtspunkt  der 
Spracherzeugung  her  aber  nur  ein 
Minimum.  Wünschenswert  wäre  ei¬ 
ne  mehrfach  größere  Anzahl  von 
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Mit  steigenden  Umsatzzahlen  des 
Commodore  64  gewann  auch  das  dazugehörige 
Diskettenlaufwerk  ständig  an  Popularität 
und  verdrängte  die  Datasette.  Wie  es  aufgebaut  ist 

und  welche  Möglichkeiten  die  Hardware 


Zunächst  ein  paar  Worte  zur  Ge¬ 
schichte:  Entstanden  ist  das 
1541-Laufwerk  aus  dem  CBM 
2031-Laufwerk,  das  bis  auf  die 
Schnittstelle  identisch  ist.  Das 
2031-Laufwerk  arbeitet  mit  dem  pa¬ 
rallelen  IEEE-488-Bus,  während  die 
1541-Floppy  Daten  seriell  überträgt. 
Früher  hieß  das  Laufwerk  aller¬ 
dings  noch  1540  und  war  zum  Einsatz 
mit  dem  VC  20  vorgesehen.  Mit  Er¬ 
scheinen  des  Commodore  64  erhielt 
es  einen  neuen  Namen  und  durch 
ein  neues  Betriebssytem  die  Fähig¬ 
keit,  sowohl  mit  dem  VC  20  als  auch 
mit  dem  C  64  Zusammenarbeiten  zu 
können.  Die  Änderung  des  Be¬ 
triebssystems  wurde  wegen  der  un¬ 
terschiedlichen  Datenlesege¬ 
schwindigkeit  der  beiden  Compu¬ 
ter  durchgeführt  (tatsächlich  ist  der 
VC  20  schneller  als  der  C  64).  Mei¬ 
nen  Erfahrungen  nach  funktioniert 
das  1541  am  VC  20  aber  auch  ohne 
Umstellung  (mit  dem  Befehl  UI—) 
einwandfrei.  Übrigens:  Wer  noch 
ein  1540-Laufwerk  hat  und  dieses 
Umrüsten  möchte,  kann  dies  durch 
Auslesen  eines  1541-ROMs  und 
Brennen  auf  EPROMs  preisgünstig 
tun,  ohne  lange  auf  einen  Umrüst¬ 
satz  warten  zu  müssen. 

Damit  die  gängigen  EPROM- 
Typen  (zum  Beispiel  der  2764)  ver¬ 
wendet  werden  können,  ist  es  aller¬ 
dings  notwendig,  einige  Pins  umzu¬ 
leiten.  Ein  solches  Zwischenstück 


bietet,  zeigt  dieser  Bericht. 


wird  meines  Wissens  nach  von  Ka- 
lansky  (siehe  Expansions-Heft  7)  ge¬ 
liefert. 


Einfaches  Umrüsten  des 
1540 


Die  Erweiterung  des  Betriebssy- 
tems  war  allerdings  nicht  die  einzige 
Veränderung,  die  seit  dem  Erschei¬ 
nen  des  1541  vorgenommen  wurde. 
Die  bis  Weihnachten  1983  ausgelie¬ 
ferten  1541  funktionierten  bei  ange¬ 
schlossenem  1526-Drucker  beim 
Arbeiten  mit  relativen  Dateien  nicht 
einwandfrei,  da  diese  Version  eine 
Handshake-Leitung  nicht  überprüf¬ 
te.  Die  Änderung  des  Betriebssy¬ 
stems  des  Druckers  konnte  daran 
natürlich  nichts  verbessern.  Die 
nach  Weihnachten  1983  verkauften 
Laufwerke  haben  meiner  Erfahrung 
nach  keinen  Fehler  mehr  in  ihrem 
DOS  (Disk  Operating  System). 

Das  1541  ist  eigentlich 
ein  Computer 

Damit  habe  ich  schon  auf  eine  Be¬ 
sonderheit  des  1541-Laufwerks  hin¬ 
gewiesen.  Im  Gegensatz  zu  vielen 
anderen  Computersystemen  ist  das 
Commodore-Laufwerk  ein  soge¬ 
nanntes  »intelligentes«  Peripherie¬ 


Bild  1.  Die  DOS-Piatine 
des  1541-Laufwerks 


gerät.  Intelligent  deswegen,  weil  im 
Laufwerk  ein  eigener  Prozessor  mit 
oben  erwähntem  eigenen  Betriebs¬ 
system  seine  Arbeit  leistet.  Die  VC 
1541-Floppy  wird  deshalb  mit  Recht 
als  eigener  Computer  bezeichnet. 
Neben  dem  6502-Prozessor  als  CPU 
(Bild  1,  Pfeil  B)  sorgen  noch  eine  Rei¬ 
he  anderen  Bausteine  für  den  Da¬ 
tenaustausch  mit  dem  Computer. 
Das  sind  im  wesentlichen  zwei  6522 
Input/Output-Bausteine,  von  denen 
einer  die  Verwaltung  des  seriellen 
Busses  übernimmt  und  der  andere 
für  die  korrekte  Motor-,  Schreib-  und 
Lesekopfsteuerung  zuständig  ist. 
Das  16  KByte  große  Betriebssytem 
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ist  in  drei  eigenen  Bausteinen  unter¬ 
gebracht.  Zusätzlich  stehen  noch 
vier  2114-Bausteine  mit  insgesamt  2 
KByte  Pufferspeicher  zur  Verfü¬ 
gung. 

Eigentlich  eine  ganze  Menge,  das 
für  den  relativ  günstigen  Preis  gebo¬ 
ten  wird.  Wie  sieht  es  aber  mit  den 
Leistungen  des  Laufwerks  im  tägli¬ 
chen  Betrieb  aus? 


Igel  oder  Hase? 


Wer  von  der  Datasette  auf  die  VC 
1541-Floppy  umsteigt,  wird  sicher¬ 
lich  zunächst  von  der  Ladege¬ 


schwindigkeit,  den  Diskettenbefeh¬ 
len  und  der  Auswahlmöglichkeit 
des  Directory  begeistert  sein.  Wer 
aber,  wie  ich,  schon  mit  anderen 
Computern  und  deren  Laufwerken 
gearbeitet  hat,  ist  von  der  relativ 
langsamen  Datenübertragung  ent¬ 
täuscht.  In  Zahlen  ausgedrückt,  be¬ 
trägt  die  Datenübertragungsge¬ 
schwindigkeit  0,4  KByte  pro  Sekun¬ 
de  (im  Vergleich:  Die  CBM  2031 
überträgt  mit  1,8  KByte  pro  Sekun¬ 
de).  Außerdem  ist  die  VC  1541- 
Floppy,  jedenfalls  die,  die  ich  hatte, 
sehr  störanfällig.  Die  bei  längerem 
Betrieb  (bei  mir  nach  einem  Monat) 
auftretenden  Fehler  machen  sich  zu¬ 


nächst  in  immer  häufigeren  Lese¬ 
fehlern  und  Blinken  der  Kontrollam¬ 
pe  bemerkbar.  Später  wird  es  dann 
unmöglich,  noch  einzelne  Disketten 
zu  lesen,  außer  sie  wurden  gerade 
formatiert.  Dies  sind  typische  Anzei¬ 
chen  einer  Dejustierung  des 
Schreib-/Lesekopfes. 

Da  diese  Fehler  bei  meinem  Lauf¬ 
werk,  auch  nach  Reparatur  durch 
den  Fachhandel,  innerhalb  kürze¬ 
ster  Zeit  wieder  auftraten,  war  es  an 
der  Zeit,  dem  Problem  auf  die  Spur 
zu  kommen.  Mit  einem  Disk-Monitor 
versuchte  ich,  bei  meinem  defekten 
Laufwerk  eine  frisch  formatierte 
Diskette  zu  lesen.  Das  funktionierte 
auch  auf  allen  Spuren  einwandfrei, 
außer  auf  Spur  1.  Die  ausgegebene 
Fehlermeldung  deutete  auf  eine 
fehlerhafte  Formatierung  hin.  Da 
Spur  1  aber  die  äußerste  auf  der  Dis¬ 
kette  ist,  schloß  ich  daraus,  daß  der 
Schreib-/Lesekopf  die  Position  der 
Spur  1  nicht  mehr  exakt  erreichen 
konnte.  Mittlerweise  war  die  Garan¬ 
tie  auf  mein  Laufwerk  abgelaufen 
(die  erste  Reparatur  dauerte  zwei 
Monate),  deshalb  entschloß  ich 
mich,  das  Laufwerk  zu  öffnen. 

Abhilfe  bei  Funktions¬ 
störungen 


************************  ****** 

*  Achtung!  Ziehen  Sie  bei  * 

*  allen  Arbeiten  an  offenen  * 

*  elektrischen  Geräten  den  * 

*  Netzstecker  * 

****************************** 

Wer  dies  nachvollzieht,  wird  im  In¬ 
neren  die  Platme  mit  dem  Disk- 
Controller,  dem  Netzteil  und  dem  ei¬ 
gentlichen  Laufwerk  (das  von  Alps, 
einem  japanischen  Elektrogiganten 
kommt)  finden.  Zusammengehalten 
werden  die  Einzelteile  in  einem  Rah¬ 
men  aus  Preßblech.  Nimmt  man  die 
Platine  (bitte  vorsichtig)  ab,  wird  der 
Blick  auf  den  Schreib-/Lesekopf 
(Bild  2,  Pfeil  F)  und  dessen  Antrieb 
frei.  Dieser  Antrieb  ist  es  aber,  der 
meist  für  die  Lesefehler  verantwort¬ 
lich  ist.  Die  Funktionsweise  ist 
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schnell  erklärt:  Ein  Steppermotor 
überträgt  über  seine  Achse  (Bild  2, 
Pfeil  E)  die  Bewegungsinformatio- 
nen  auf  ein  Rad,  auf  dem  eine  seg- 
mentförmige  Erhebung  ist.  Um  die¬ 
ses  Rad  herum  läuft  ein  Stahlband, 
das  durch  ein  Zugrad  auf  Spannung 
gehalten  wird.  An  dem  Stahlband  ist 
der  Schreib-/Lesekopf  befestigt 
und  folgt  somit  den  Bewegungen 
des  Steppermotors.  Beim  sicherlich 
jedem  Laufwerkbesitzer  bekannten 
Klappern  zu  Beginn  eines  Forma¬ 
tiervorgangs  justiert  sich  der 
Schreib-/Lesekopf,  indem  das  auf 
dem  Steppermotor  angebrachte 
Rad  mehrmals  an  einen  Anschlag 
fährt.  Dabei  verschiebt  sich  im  Lau¬ 
fe  der  Zeit  das  leider  nur  aufge¬ 
steckte  Rad  auf  der  Achse  des  Step¬ 
permotors.  Daß  der  Schreib-/Lese- 
kopf  sich  danach  nicht  mehr  justie¬ 
ren  kann,  ist  einleuchtend. 


notwendig.  Deshalb  sollte  man  die¬ 
se  Arbeiten  nur  dann  vornehmen, 
wenn  Kenntnis  und  einwandfreies 
Werkzeug  vorhanden  ist.  Mögli¬ 
cherweise  erklärt  sich  auch  Ihre 
Fachwerkstätte,  gegen  ein  gewisses 
Entgelt,  dazu  bereit.  Dort  könnte 
dann  die  selbstverständlich  notwen¬ 
dige  Justage  des  Schreib-/Lesekop- 
fes  vorgenommen  werden.  Sie  kön¬ 
nen  aber  auch,  mit  etwas  Geschick, 
die  Justage  mit  einer  auf  einem  ein¬ 
wandfreien  Laufwerk  formatierten 
(beziehungsweise  emer  Ihrer  ersten 
Disketten)  vornehmen.  Die  Einstel¬ 
lung  mittels  Disk-Monitor  wird  dann 
zwar  nicht  lOOprozentig,  aber  ein 
störungsfreies  Schreiben  und  Lesen 
ist  auf  jeden  Fall  zu  erreichen. 


Die  zweite  Fehlerursache  beim 
1541  hegt  im  Antrieb  der  Disketten 
(Büd  2,  Pfeil  G).  Durch  Verwendung 
von  schmutzigen  beziehungsweise 
alten  Disketten  geht  oft  die  Haftung 


Schmutz  als 
Fehlerursache 


zwischen  den  Antriebsrädern  und 
der  Diskettenscheibe  verloren.  Die 
Folge  ist  eine  zu  geringe  Umdreh¬ 
ungsgeschwindigkeit  der  Diskette 
(wenn  sie  sich  überhaupt  dreht),  die 
meist  mit  wildem  Blinken  der  Funk¬ 
tionsanzeige  quittiert  wird.  Eine  Ab- 


Thermische  Probleme 


Verstärkt  wird  dieser  Effekt  noch 
durch  die  starke  Erhitzung  des  Lauf¬ 
werks  bei  längerem  Betrieb.  Diese 
ist  zum  einen  darauf  zurückzufüh¬ 
ren,  daß  das  Netzteü  eingebaut  ist, 
zum  anderen  entwickeln  die  beiden 
Spannungsregler  (Bild  1,  Pfeü  C) 
Temperaturen  über  50  Grad.  Dies 
mag  für  die  Elektronik  ja  noch  ver¬ 
träglich  sein,  die  Mechanik  nimmt 
es  übel.  Da  sich  das  Metall  der  Step¬ 
permotorachse  und  das  des  aufge¬ 
sprengten  Rades  bei  diesen  Tempe¬ 
raturen  unterschiedlich  ausdehnt, 
wird  das  Rad  auf  der  Achse  leichter 
verdrehbar. 

Welche  Maßnahmen  kann  man 
aber  treffen,  um  solche  Verstellun¬ 
gen  zu  verhindern?  Das  Einfachste 
ist  es,  nach  gründlicher  Reinigung 
einen  Tropfen  Superkleber  auf  das 
Rad  und  die  Achse  zu  geben.  Dabei 
sollte  man  natürlich  vorsichtig  sein, 
damit  nicht  das  Stahlbändchen  ver¬ 
klebt.  Eine  andere,  wesentlich  ele¬ 
gantere  Methode  besteht  darin, 
durch  Achse  und  Rad  ein  Loch  zu 
bohren  und  beide  durch  einen 
Splint  zu  sichern.  Dazu  ist  natürlich 
die  Demontage  des  Steppermotors 
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hilfe  schafft  da  nur  die  gründliche 
Reinigung  des  Andruckkopfes  und 
des  Antriebsrades  mit  Alkohol.  Bei 
dieser  Gelegenheit  können  Sie  auch 
vorsichtig  den  Schreib-/Lesekopf 
mit  einem  Wattestäbchen  säubern. 
Es  ist  empfehlenswert,  die  beiden 
Laufschienen  des  Schreib-/Lese- 
kopfes  ganz  leicht  (auch  mit  Watte¬ 
stäbchen)  einzuölen.  Das  Laufwerk 
wird  dann  leiser  und  zuverlässiger. 

Sollten  Ihnen  die  eben  genannten 
Maßnahmen  allerdings  zu  aufwen¬ 
dig  Vorkommen,  ist  es  auf  alle  Fälle 
ratsam,  für  eine  bessere  Kühlung 
des  Laufwerks  zu  sorgen.  Dies  ist 
entweder  durch  Einbau  eines  fla¬ 
chen  Lüfters  oder  durch  vollständi¬ 
ges  Entfernen  der  Lüftungsschlitze 


Bild  2.  Das 
»eigentliche«  Laufwerk 


im  Gehäuse  decket  möglich.  Ver¬ 
meiden  Sie  auf  jeden  Fall  das  For¬ 
matieren  von  Disketten,  wenn  das 
Laufwerk  heiß  ist. 


Hardwareumstellung  der 
Geräteadresse 


Eine  oft  gestellte  Frage  ist  auch 
die  nach  der  hardwaremäßigen 
Umstellung  der  Geräteadresse.  Die 
im  Handbuch  beschriebenen  Teile 
sind  nämlich  auf  der  ganzen  Platine 
nicht  zu  fmden,  weil  das  Floppy- 
Handbuch  noch  die  alte,  etwas  grö¬ 
ßere  und  anders  aufgebaute  Platine 
beschreibt.  Insgesamt  gibt  es  drei 
verschiedene  Platinen.  In  Bild  1 
zeigt  Pfeil  A  auf  zwei  Lötbrücken  in 
der  Form  von  zwei  durch  einen  Steg 
verbundenen  Halbkreisen.  Durch 
Zertrennen  der  vordeiw  dieser 
beiden  Lötbrücken  läßt  sich  die  Ge¬ 
rätenummer  fest  auf  9  einstellen.  Ist 
es  aber  notwendig,  das  Laufwerk 
wechselweise  mit  8  oder  9  zu  betrei¬ 
ben,  besteht  die  Möglichkeit,  auf 
beide  Halbkreise  der  vorderen  Löt¬ 
brücke  einen  Draht  zu  führen  und 
diesen  mit  einem  Schalter  zu  verbin¬ 
den.  Nach  Drücken  des  Schalters 
und  Durchführen  eines  Resets  stellt 
sich  die  neue  Nummer  automatisch 
ein.  Der  Schalter  wird  am  besten  an 
der  Rückseite  des  Gehäusedeckels 
befestigt.  Bei  älteren  (weißen)  Dis¬ 
kettenlaufwerken  befinden  sich  die 
beiden  Lötbrücken  übrigens  nicht 
im  vorderen  Drittel  der  Platine,  son¬ 
dern,  von  vorne  gesehen,  hinten 
links.  Auch  hier  wird  wieder  die  vor¬ 
dere  der  beiden  Leiterbahnen 
durchtrennt,  um  die  Geräteadresse 
9  einzustellen. 


Die  Überbrückung  des 
Schreibschutzes 


Daß  es  beim  1541-Laufwerk  mög¬ 
lich  ist,  auch  einseitige  Disketten 
(durch  Herausschneiden  eines 


zweiten  Schreibschutzloches)  und 
hardsektororientierte  Disketten 
beidseitig  zu  verwenden,  ist  mittler¬ 
weile  sicherlich  bekannt.  Daß  es 
aber  auch  möglich  ist,  ohne  diese 
Schnippelei  Disketten  auf  der  Rück¬ 
seite  zu  bespielen,  ist  die  nächste 
Erweiterung,  die  uns  das  1541-Lauf¬ 
werk  bietet.  Auch  hier  ist  das  Prinzip 
des  Schreibschutzes  schnell  erklärt, 
denn  eine  einfache  Lichtschranke 
prüft,  ob  sich  eine  Diskette  mit  oder 
ohne  Schreibschutz  im  Laufwerk  be¬ 
findet.  Dies  hat  mich  vor  langer  Zeit 
mal  eine  Diskette  gekostet,  da  ich 
aus  Sparsamkeitsgründen  durch¬ 
sichtigen  Tesafilm  als  Schreibschutz 
verwendet  hatte. 

Nun  aber  zum  notwendigen  Um¬ 
bau.  Auf  der  Platine  befinden  sich 
auf  der  linken  Seite  die  Steckverbin¬ 
dungen  für  Laufwerkssteuerung, 
Datenübertragung  und  eine  Leucht¬ 
diode.  Diese  Steckplätze  sind  auf 
der  Platine  mit  »p«  und  einer  Num¬ 
mer  bezeichnet.  Der  für  uns  wichti¬ 
ge  Steckplatz  ist  der  mit  der  Be¬ 
zeichnung  P6.  Die  ersten  beiden  Ka¬ 
bel  haben  die  Farben  Orange  und 
Lila.  Lötet  man  zwischen  diese  bei¬ 
den  Kabel  ebenfalls  einen  Schalter, 
so  ist  es  möglich,  Disketten  von  der 
Rückseite  zu  bespielen,  ohne  eine 
Einkerbung  für  den  Schreibschutz 
machen  zu  müssen.  Es  ist  empfeh¬ 
lenswert,  einen  Kippschalter  zu  ver¬ 
wenden,  damit  optisch '  erkennbar 
ist,  ob  der  Schreibschutz  aktiviert  ist 
oder  nicht.  Zum  Wechseln  der  Dis¬ 
ketten  ist  der  Schalter  übrigens  wie¬ 
der  in  Normalstellung  zu  bringen, 
da  bei  geschlossenem  Schreib¬ 
schutzschalter  ein  Diskettenwechsel 
vom  Laufwerk  »nicht  bemerkt«  wird. 
Einige  Nachteile  dieser  Arbeiten 
am  Laufwerk  sollten  allerdings  nicht 
verschwiegen  werden:  Durch  Öff¬ 
nen  des  Gerätes  verlieren  Sie  jeden 
Garantieanspruch.  Teile,  die  Sie  bei 
Arbeiten  an  der  1541  zerstören  (zum 
Beispiel  durch  statische  Entladung 
oder  zu  heißen  Lötkolben)  werden 
Ihnen  von  keinem  Händler  ersetzt. 
Und  achten  Sie  natürlich  auf  Ihre  Si¬ 
cherheit,  indem  Sie  den  Netzstecker 
ziehen  und  weglegen. 

(Arnd  Wängler) 
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ftutomodem  (Bild  1): 


Das  Angebot 
an  Modems  und 

Akustikkopplern  wächst  fast  wöchentlich. 
Einen  Überblick  über  die  angebotenen  Geräte 
soll  unsere  Marktübersicht,  die  keinen  Anspruch 
auf  Vollständigkeit  erhebt,  ermöglichen. 


Das  Automodem  ist  ein  Selbstbau¬ 
modem,  das  allerdings  keine  FTZ- 
Prüfnummer  besitzt,  Dieser  Apparat 
wird  zwischen  Telefon  und  Akustik¬ 
koppler  geschaltet.  Es  unterschei¬ 
det  Computer  von  »normalen«  Anru¬ 
fern  und  kann  auch  als  Wählautomat 
eingesetzt  werden. 

Minimodem  3005  (Bild  2): 

Bei  dem  Minimodem  fallen  beson¬ 
ders  die  vier  Leuchtdioden  ins  Au¬ 
ge.  Neben  der  Diode,  die  die  Be¬ 
triebsbereitschaft  anzeigt,  und  der 
Diode,  die  ein  empfangenes 
Carrier-Signal  bestätigt,  sind  die 
zwei  anderen  besonders  interes¬ 
sant.  Diese  zeigen  an,  ob  der  Aku¬ 
stikkoppler  Signale  empfängt  oder 
sendet.  Durch  diese  Anzeigen  wird 
ein  Fehler  in  der  Übertragung  leich¬ 
ter  lokalisierbar. 

Epson  CX-21  (Bild  3): 

Der  Epson  Akustikkoppler  ist 
wohl  einer  der  verbreitesten  Geräte. 
Er  ist  vor  allem  durch  seine  Zuver¬ 
lässigkeit  bekannt. 

Tandy  (ohne  Bild): 

Dieser  Akustikkoppler  ist  der 
preiswerteste  unserer  Übersicht.  Er 
soll  nach  der  Meinung  einiger  Be¬ 
nutzer  allerdings  nicht  die  Zuverläs¬ 
sigkeit  des  Epson-Kopplers  errei¬ 
chen. 

CDIÄCK  300  (Bild  4): 

Der  ACK  300  sendet  und  emp¬ 
fängt  mit  300  Baud  im  Voll-Duplex 
Betrieb. 

CD1  ACK  1200  (wie  Büd  4): 

Der  ACK  1200  arbeitet  mit  1200 
Baud  im  Halb-Duplex  Betrieb. 
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CDI ÄM  1200/300  (wie  Büd  4): 

Dieses  Gerät  dient  nur  zum  Sen¬ 
den.  Die  Übertragungsgeschwin¬ 
digkeit  kann  zwischen  300  und  1200 
Baud  gewählt  werden. 

CDI  ACK  1200/75  (wie  Büd  4): 

Dieser  Koppler  sendet  mit  1200 
Baud  und  empfängt  mit  75  Baud  im 
Voll-Duplex-Betrieb. 

CDI  ACK  75/1200  (wie  Büd  4): 

Dieser  Akustikkoppler  sendet  mit 
75  Baud  und  empfängt  mit  1200  Baud 
im  Voll-Duplex  Betrieb.  Als  Beson¬ 
derheit  dieses  Gerätes  ist  die  BTX- 
Zulassung  zu  erwähnen. 

Comco  CK  211  (ohne  Büd): 

Dieser  Akustikkoppler  arbeitet 
mit  300  Baud  im  Halb-  oder  Voll- 
Duplex-Betrieb. 

Comco  CK  311  (ohne  Büd): 

Dieses  Modell  hat  zusätzlich  zu 
dem  CK  211  noch  den  Originate/ 
Answer  Mode,  besitzt  aber  keine 
FTZ-Nummer. 

Comco  CK  2300  (ohne  Büd): 

Bei  diesem  Gerät  handelt  es  sich 
um  ein  tragbares  Terminal.  Inte¬ 
griert  ist  der  CK  211. 

WS  2000  (Büd  5): 

Das  Weltstandard  2300  Modem 
hat  keine  FTZ-Nummer.  Es  bietet 
vielfältige  Möglichkeiten,  die  sich 
jeder  »Hacker«  wünschen  würde. 
Doch  durch  das  Veto  der  Bundes¬ 
post  dürfen  diese  nicht  genutzt  wer¬ 
den, 

PR1  (Büder  6  und  7): 

Bei  dem  PR1  Akustikkoppler  han¬ 
delt  es  sich  um  ein  Gerät,  das  mit 
Originate/Answer  Mode  arbeitet. 
Auch  dieses  Gerät  besitzt  keine 
FTZ-Nummer. 

AK  300  (Büd  8): 

Bei  diesem  Akustikkoppler  han¬ 
delt  es  sich  um  eines  der  neuesten 
Geräte  mit  FTZ-Nummer  auf  dem 
deutschen  Markt.  Der  Koppler  soll, 
nach  Angaben  der  Hersteller, 
über  dieselben  Vorzüge  wie  der 
Epson  CX-21  verfügen.  Preislich 
liegt  dieses  Gerät  jedoch  einiges 
unter  dem  Epson-Koppler.  Ein  aus¬ 
führlicher  Testbericht  wird  sich  in 
einem  der  nächsten  Ausgaben  an¬ 
schließen. 

Das  Bundespost-Modem 
(ohne  Büd): 

Dieses  Modem  ist  ausschließlich 
als  Mietgerät  über  die 
Bundespost  erhältlich. 

Fortsetzung  auf  Seite  33 
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Wenn  Sie  einen  VC  20  oder  ei¬ 
nen  C  64  besitzen,  dann  haben 
Sie  sich  bestimmt  schon  öfter 
Gedanken  darüber  gemacht,  das 
äußere  Erscheinungsbild  Ihres  Sy¬ 
stems  zu  verbessern.  Baut  man  die 
Geräte  einmal  so  auf,  wie  vom  Her¬ 
steller  geplant  und  steckt  diverse 
Erweiterungsplatinen  dazu,  dann 
entsteht  auf  dem  Arbeitstisch  ein 
recht  unschöner  Verhau  von  Leitun¬ 
gen.  Abgesehen  von  dem  dafür  nöti¬ 
gen  Platz,  ein  unbefriedigender  Zu¬ 
stand. 

Viele  Verbesserungsvorschläge 
gehen  dahin,  nur  den  Computer  auf 
dem  Tisch  zu  belassen  und  den  Rest 
so  zu  verstecken,  daß  er  nicht  stört. 
Den  Weg,  den  ich  zur  Lösung  des 
Problems  beschriften  habe,  unter¬ 
scheidet  sich  von  diesen  Vorschlä¬ 
gen  wesentlich.  Meine  Absicht  ist 


es,  zwar  alles  auf  dem  Tisch  zu  las¬ 
sen,  dieses  aber  so  kompakt  aufzu¬ 
bauen,  daß  es  kaum  noch  Platzpro¬ 
bleme  gibt. 

Die  Idee  dafür  lieferten  die  »Ur¬ 
väter«  der  Büro-Computer,  wie  zum 
Beispiel  der  Pet  oder  seine  Nachfol¬ 
ger.  Warum  sollte  man  den  C  64 
nicht  in  eines  dieser  Gehäuse  ein¬ 
bauen?  Eine  praktische  Lösung,  die 
zudem  noch  einige  weitere  Vorteile 


Vom  Pet  gelernt 


bietet:  Auf  einer  Standfläche  von  zir¬ 
ka  50  mal  45  Zentimetern  bringt  man 
den  Computer,  den  Bildschirm,  das 
Floppy-Laufwerk  und  die  Stromver¬ 
sorgung  unter.  Dabei  ist  immer  noch 
genug  Platz,  um  ein  zweites  Lauf¬ 
werk  und  verschiedene  Erweiterun¬ 


gen  einzubauen.  Soviel  zum  Platz, 
weitere  Vorteile  sind:  Man  hat  nur 
noch  ein  Kabel  zur  Steckdose  und 
eventuell  noch  eines  zum  Drucker. 
Zusätzlich  macht  das  ganze  dann 
noch  einen  wesentlich  solideren 
Eindruck.  Commodore  selbst  hat 
auch  auf  der  Hannover  Messe  '83  ei¬ 
nen  4064  für  zirka  1500  Mark  vorge¬ 
stellt,  allerdings  ohne  eingebaute 
Laufwerke  und  mit  einem  mono¬ 
chromen  Bildschirm.  Dieser  findet 
hauptsächlich  in  einigen  Schulen 
seine  Anwendung. 

Aber  nun  zur  Praxis.  Wie  kann 
man  sich  diesen  »Super  C  64«  bau¬ 
en?  Nun,  einfach  den  Computer  und 
das  Laufwerk,  mit  allem  was  dazu¬ 
gehört,  in  ein  Commodore-Gehäuse 
der  30/40XXer  Serie  einbauen, 
Bildschirm  draufmontieren  und  fer¬ 
tig.  Halt,  ganz  so  einfach  ist  es  auch 
wieder  nicht,  deshalb  vorab  eine 
Warnung:  Wer  eine  Bohrmaschine 
für  ein  hochtechnisches  Gerät  und 
einen  Lötkolben  für  eine  südländi¬ 
sche  Frucht  hält,  sollte  entweder  die 
Finger  davon  lassen  oder  einen 
Basüer  zu  Rate  ziehen.  Aber  auch 
für  den  professionellen  Platinenkle- 
ber  ist  der  Arbeitsaufwand  nicht  zu 
unterschätzen.  Für  den  Prototyp  ha¬ 
be  ich  sieben  Tage  gebraucht,  mitt¬ 
lerweile  schaffe  ich  es  auch  schon  in 
zwei  bis  drei  Tagen,  (je  nachdem,  ob 
ich  auf  das  Schlafen  verzichte  oder 
nicht). 

Sollten  Sie  jetzt  aber  immer  noch 
den  notwendigen  Mut  zum  Umbau 
haben,  dann  willkommen  in  der 
Welt  der  Commodore  4064-Besitzer. 
Dazu  vorab  eine  Liste  der  unbedingt 
notwendigen  Materialien  und 
Werkzeuge. 

Teileliste : 

—  Ein  Gehäuse  der  CBM  30/40XXer 
Serie  mit  einer  mindestens  5,5  cm 
hohen  Frontplatte  (sonst  kann  man 
meines  Wissens  kein  Laufwerk  ein¬ 
bauen). 

—  Einen  Netztransformator  mit  vier 
Sekundärwicklungen  (2x9  V  und 
2x15  V).  Der  Origmaltrafo  der 
30/40XXer  Serie  ist  sehr  gut  geeig¬ 
net,  man  muß  lediglich  zwei  Drähte, 
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m  r\e\m 1  Kleid 


Ein  altes  Sprichwort  sagt:  »Kleider  machen  Leute«. 

In  gewissem  Maße  gilt  das  auch  für  Computer.  Ganz 
besonders  aber  für  den  Commodore  64,  dessen 
Leistungsfähigkeit  in  keinem  Verhältnis  zu  seinem 
äußeren  Erscheinungsbild  steht.  Wie  man  diesem 
Mangel  auf  raffinierte  Weise  abhelfen  kann,  zeigt 
dieser  Beitrag. 


die  auf  einen  Pin  gelötet  sind,  tren¬ 
nen.  Selbstverständlich  ist  es  mög¬ 
lich,,  einen  Ringkerntrafo  zu  kaufen. 
Er  erzeugt  weniger  magnetische 
Störungen  und  ist  nur  halb  so  groß. 
Dabei  ist  zu  prüfen,  ob  die  Versor¬ 
gungsspannungen  zusammenge¬ 
führt  werden  dürfen,  da  Ringkern¬ 
trafos  Sekundärwicklungen  haben. 

—  Diverse  Aluminium-Profüschie- 
nen 

—  Kühlprofü-Reste  zur  Kühlung  der 
Computer-  und  Floppy-Platine 

—  Platinenstecker  und  -Stifte 

—  Eisenblech  zur  Abschirmung  des 
Laufwerks 

—  Abstandbolzen  mit  Gewinde 

—  Jede  Menge  farbiger  Drähte,  Lü¬ 
sterklemmen,  Schrauben  und  Befe¬ 
stigungsteile 

—  Einen  guten  Lötkolben,  eine  Feüe 
und  mehrere  Schraubenzieher 

—  Eine  Bohrmaschine,  möglichst 
auch  mit  Kreissägenvorsatz 

—  Einen  Multitester. 

Aus  Bild  1  kann  man  entnehmen, 
wie  ich  die  Platinen  angeordnet  ha¬ 
be.  Man  kann  aber  auch,  wie  Büd  2 
zeigt,  eine  andere  Plazierung  der 
Platinen  wählen. 

Damit  ist  gleich  ein  wichtiger 
Punkt  angesprochen,  Beim  Bau  des 
4064  muß  man  sich  darüber  im  kla¬ 
ren  sein,  welche  Erweiterungen 
später  einmal  angeschafft  werden 
sollen.  Dadurch  erspart  man  sich 
den  kompletten  Umbau,  wenn  zum 
Beispiel  ein  zweites  Laufwerk  einge¬ 
baut  werden  soll.  Aber  auch  Steck- 
module  brauchen  Platz.  Deshalb 
sollte  der  Expansions-Port  sichtbar 
und  zugänglich  bleiben,  eventuell 


bereitet  man  mit  Flachbandkabel  ei¬ 
nen  Modulsteckplatz  am  hinteren 
Ende  des  Gerätes  vor. 

Ich  beabsichtige  nicht,  hier  einen 
Bericht  vorzulegen,  aus  dem  jeder 
Handgriff  mit  Zeichnungen  abzule¬ 
sen  ist.  Dazu  bräuchte  ich  wahr¬ 
scheinlich  das  ganze  64'cr  Heft.  Ich 
will  nur  die  Reihenfolge  dei  Arbeits¬ 
schritte  aufzeigen  und  zu  jedem  Ab¬ 
schnitt  einige  grundsätzliche  Hin¬ 
weise  geben,  die  vor  Schäden  und 
Zeitverlust  bewahren.  Denn  die 
möglichen  Fehler  sind  zahlreich  und 
man  muß  ja  nicht  alle  nachmachen. 

Der  erste  Arbeitsschritt  ist  einfach 
—  wenn  er  auch  in  der  Seele 


schmerzt.  Der  C  64  und  das  Lauf¬ 
werk  werden  ihres  alten  Kleides 
entblößt.  Die  Platine  des  C  64  wird 
einschließlich  der  Pappe  aus  dem 
Gehäuse  herausgenommen.  Eben¬ 
so  das  Laufwerk,  bei  dem  zusätzlich 
noch  das  Metallgehäuse  und  der 
Netzfüter  inklusive  Sicherungsge¬ 
häuse  ausgebaut  werden.  Sollten 
Sie  dabei  einen  elektrischen  Schlag 
bekommen  haben,  so  rate  ich  Ihnen 
zwei  Dinge: 

1.  Ziehen  Sie  den  Netzstecker! 

2.  Bauen  Sie  Modellflugzeuge! 

Haben  Sie  diese  Hürde  genom¬ 
men,  kann  Ihnen  sowieso  alles  egal 
sein,  denn  zusammen  bekommen 
Sie  die  Originalgeräte  auf  keinen 
Fall  mehr.  Ich  empfehle  Ihnen  fol¬ 
gende  Arbeiten  am  Laufwerk:  Zie¬ 
hen  Sie  das  schwarze  Kabel  des  Le¬ 
sekopfes  hinten  durch  den  Schlitz  im 
Chassis  und  legen  Sie  alle  anderen 
Kabel  so,  daß  sie  direkt  unten  her¬ 
aushängen.  Bereiten  Sie  ein  Blech¬ 
gehäuse  mit  den  Außenmaßen  des 
Floppys  vor  und  vergessen  Sie  da¬ 
bei  nicht,  für  die  kürzeste  Verbin¬ 
dung  der  Kabel  zur  Platine  ein  gro- 
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ßes  Loch  in  das  Blech  zu  schneiden. 
Die  Befestigungsschrauben  im 
Chassis  des  30/40XXer  passen  er¬ 
staunlich  genau  (zu  amerikanischen 
Schrauben,  deshalb  mit  M4  nach¬ 
schneiden).  Auch  unter  der  Front¬ 
platte  ist  alles  für  die  Aufnahme 
zweier  Laufwerke  vorbereitet,  die 
leider  etwas  kleiner  gewesen  sein 
mußten.  Deshalb  wird  es  notwen¬ 
dig,  etwas  zu  feilen  (zirka  2  Stunden). 
Die  Befestigung  des  Laufwerks  im 
Chassis  ist  am  einfachsten  mit  vier 
Winkelblechen  zu  bewerkstelligen. 
Da  man  nicht  gut  bei  geöffnetem 
Deckel  mit  Werkzeug  hantieren 
kann,  ist  es  zu  empfehlen,  das  Lauf¬ 
werk  in  geeigneter  Schräglage  in 
den  Blechkasten  zu  montieren  und 
den  Kasten  dann  erst  an  den  Deckel 
zu  hängen.  Wichtig  ist  dabei,  das 
Laufwerkgehäuse  nicht  mechanisch 
zu  belasten.  Die  Führung  für  die  Dis¬ 
kette  könnte  sonst  zu  eng  werden. 
Der  Blechkasten  darf  also  den 
schwarzen  Kunststoff  am  Chassis 
nicht  eng  umschließen.  Achten  Sie 


auch  darauf,  daß  keine  bewegli¬ 
chen  Teüe  irgendwo  schleifen  oder 
scheuem. 

Jetzt  aber  zu  den  Platinen.  Ich  ha¬ 
be  Wert  darauf  gelegt,  an  diesen 
nichts  zu  verändern.  Deshalb  wur¬ 
den  alle  Anschlüsse  über  Stecker 
vorgenommen.  Bei  meiner  Platinen¬ 
anordnung  mußte  ich  lediglich  die 
seriellen  Verbindungen  mittels 
zweier  Winkelstecker  herstellen,  da 
sonst  das  Gehäuse  nicht  mehr  zuge¬ 
gangen  wäre. 

Der  Zusammenbau  geht  relativ 
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einfach  und  schnell.  Die  Hauptplati¬ 
ne  wird  mit  den  Abstandbolzen  und 
der  Pappe  auf  dem  Boden  des 
Chassis  befestigt.  Darüber  kommt 
die  Platine  für  das  Laufwerk,  das  zu¬ 
sätzlich  noch  mit  drei  Schrauben  an 


Bild  2.  Die  zweite  Einbaumögtichkeit  der  Platine 


der  rechten  Gehäuseseite  auf  einer 
Aluminiumschiene  befestigt  ist.  Die 
andere  Seite  der  Floppyplatine  wird 
ebenfalls  auf  eine  Aluminiumschie¬ 
ne  geschraubt,  Auf  dieser  findet 
später  auch  der  Kühlkörper  Platz, 
der  unbedingt  notwendig  ist,  denn 
es  entstehen  bei  längerem  Betrieb 
doch  erhebliche  Wärmemengen 
durch  die  beiden  Regler. 

Der  Trafo  wird  am  besten  in  der 
linken  hinteren  Ecke  festge¬ 
schraubt,  denn  zum  einen  sind  dort 
die  Halterungen  für  den  Originaltra¬ 
fo  und  zum  anderen  ist  dort  noch  am 
meisten  Platz.  Der  Trafo  wird  grund¬ 
sätzlich  so  montiert,  daß  die  Sekun¬ 
därklemmen  sichtbar  bleiben  und 
das  Hauptmagnetfeld  nicht  zum  Mo¬ 
nitor  zeigt.  Wer  es  ganz  genau 
nimmt,  kann  den  Trafo  auch  noch 
mit  einem  Blech  abschirmen,  unbe¬ 
dingt  notwendig  ist  das  aber  nicht. 
Gut  ist  es,  die  Leitungen  auf 
Schraubklemmen  oder  Lötleisten  zu 
legen.  Auch  kann  noch  eine  220-Völt- 
Leitung  für  den  Monitor  und  even¬ 
tuell  einen  Lüftermotor  mit  vorberei¬ 
tet  werden. 

Die  Stromversorgung  für  den 
Computer  (5  Volt)  erhalten  wir  am 
einfachsten  mit  einem  Festspan¬ 
nungsregler,  der  an  die  Gehäuse¬ 
rückseite  geschraubt  wird.  Ach¬ 
tung!  Unbedingt  vorher  ausmessen, 


denn  eine  zu  hohe  Spannung  kann 
das  vorzeitige  Ende  aller  Bemühun¬ 
gen  bedeuten.  Beschriften  Sie  auch 
alle  Leitungen  und  verdrülen  Sie 
diese,  damit  es  keine  Verwechslun¬ 
gen  und  Störfelder  gibt. 

Ob  Sie  nun  den  Monitor  nur  auf 
das  Gehäuse  aufstellen  'oder  fest 
verschrauben  bleibt  Ihnen  überlas¬ 
sen.  Bei  einem  festen  Anbau  ist  aber 
darauf  zu  achten,  daß  dieser  nicht 
endgültig  ist,  denn  auch  Monitore 
haben  nur  eine  begrenzte  Lebens¬ 
dauer. 

Eigentlich  fehlen  jetzt  nur  noch  die 
Betriebsspannungslampen  und  die 
Resetleitung,  die  man  sinnvollerwei- 
se  auch  gleich  einbaut.  Moment, 
ehe  ich  es  vergesse:  Die  Tastatur  ha¬ 
ben  Sie  hoffentlich  schon  eingebaut. 
Dazu  muß  eine  kleine  Ecke  vom  Ge¬ 
häuse  vorsichtig  weggefeilt  werden. 
Jetzt  haben  Sie  sich  aber  einen  Pro¬ 
belauf  verdient,  vor  dem  Sie  am  be¬ 
sten  nochmals  alle  Spannungen 
nachmessen  und  die  Platinen  von  al¬ 
lem  Staub  und  Spänen  befreien. 

Sollte  alles  funktionieren  (hoffent¬ 
lich),  dann  können  Sie  sich  an  die 
Gehäusekosmetik  heranmachen. 
Dazu  gehört  das  paßgenaue  Feüen 
der  Frontplatte  und  das  Anbringen 
der  besonders  wichtigen  Typenbe¬ 
zeichnung  »4064«.  Achten  Sie  in  den 
ersten  Wochen  besonders  auf  die 
Temperaturentwicklung  im  Gehäu- 
seinneren.  Sollten  Sie  dabei  zarte 
Rauchwolken  aufsteigen  sehen, 
empfehle  ich  Ihnen  einen  zusätzli¬ 
chen  Lüfter  einzubauen. 

Sollten  Sie  die  Absicht  haben,  das 
Ganze  auf  sich  zu  nehmen,  so  kann 
ich,  wenn  nötig,  CBM-Gehäuse  mit 
Trafo  in  begrenzter  Anzahl  beschaf¬ 
fen.  Es  sollten  aber  auch  bei  ver¬ 
schiedenen  Firmen,  die  die  30/ 
40XXer-Platinen  für  andere  Zwecke 
verwendet  haben,  noch  solche  Ge¬ 
häuse  erhältlich  sein. 

Die  nächste  Erweiterung  meines 
4064  ist  eine  Sicherung  gegen 
Stromausfälle,  so  daß  der  Speicher¬ 
inhalt  etwa  10  bis  20  Minuten  ohne 
Netz  gehalten  wird. 

Übrigens  ist  es  mir  mit  meinem 
4064  mehrmals  gelungen,  selbst  Be¬ 
sitzer  größerer  Computer,  die  dem 
Commodore  64  sonst  nie  einen  Blick 
schenken  würden,  zu  verblüffen:  Sie 
hielten  den  4064  für  eine  revolutio¬ 
näre  Neuentwicklung  von  Commo¬ 
dore.  (H.Schröder/A.Wängler/gk) 
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Ohne  Sicherheitskopie  ist  das  Arbeiten  mit  dem  C  64 
eine  riskante  Sache.  Zu  oft  stürzt  ein  Programm 
in  der  Entwicklungsphase  ab.  Also  vor  einem  RUN 
immer  abspeichern? 


die  Möglichkeit,  zwischen  Leitung  1 
und  Leitung  3  einen  Schalter  dazwi¬ 
schen  zu  löten.  Der  Schalter  sollte 
dabei  ein  Druckkontaktschalter 
sein  und  nach  dem  Löten  durch  eini¬ 
ge  Tropfen  Schnellkleber  fixiert 
werden  (siehe  Bild  1).  Der  Nachteil 
dieser  Lösung  besteht  darin,  daß 
zum  einen  der  User-Port  nicht  mehr 
für  andere  Zwecke  genutzt  werden 
kann  (zum  Beispiel  RS232..),  zum  an¬ 
deren  sind  die  Kosten  für  einen 
User-Port  Stecker  relativ  hoch  (zirka 
12  Mark). 

2.  RESET-Knopf  am  seriellen  Bus 

Auch  der  serielle  Bus  (zum  Bei¬ 
spiel  Buchse  2  am  Floppy)  bietet  die 
beiden  Leitungen  CND  und  RESET 
(Bild  2).  Diese  befinden  sich  an  den 


Leider  verzögert  dieses  häufige 
Abspeichern,  besonders  wenn 
nur  mehrere  kleine  Änderungen 
vorgenommen  werden  müssen  die 
Programmierarbeit  sehr.  Deshalb 
wäre  es  sicher  wünschenswert  am 
C  64  einen  RESET-Knopf  zu  haben, 
wie  er  bei  anderen  Computern  vor¬ 
zufinden  ist.  Wichtig  ist  dabei  natür¬ 
lich,  daß  durch  Betätigen  dieses 
Knopfes  der  Speicherbereich  nicht 


total  gelöscht  wird,  sondern  ledig¬ 
lich  wieder  für  eine  neue  Befehls¬ 
aufnahme  bereit  ist. 

Da  die  beiden  im  Handbuch  auf¬ 
geführten  Möglichkeiten,  den  Com¬ 
puter  wieder  in  einen  aufnahme¬ 
bereiten  Zustand  zu  versetzen 
(RUN/STOP +  RESTORE  oder  SYS 
64738)  oft  zu  keinem  Resultat  mehr 
führen,  kann  diesem  Problem  nur 
durch  eine  kleine  Hardware- 
Erweiterung  gelöst  werden. 

Das  Prinzip  dieses  Schalters  be¬ 
ruht  auf  einer  Verbindung  der 


Bild  1.  Verschiedene  RESET-Schalter 


RESET-Leitung  des  Prozessors  (Pin 
40)  mit  Masse  (zum  Beispiel  Pin  21). 
Zur  Realisierung  dieser  Verbindung 
bieten  sich  mehrere  Ansatzpunkte 
an,  die  im  folgenden  beschrieben 
werden  sollen: 

1.  RESET-Knopf  am  User-Port 
Die  an  dieser  Stelle  nach  außen 
geführte  Platine  des  C  64  (User-Port) 
stellt  an  Leitung  1  GND  (Masse)  und 
an  Leitung  3  RESET  zur  Verfügung. 
Durch  Aufsetzen  eines  User-Port 
Steckers  (zum  Beispiel  TRW 
251-12-50-170  50-24SN-9)  besteht  nun 


Stiften  2  (GND)  und  6  (RESET).  Als 
Stecker  wird  lediglich  ein  ganz  ge¬ 
wöhnlicher  sechspoliger  DIN-Stek- 
ker,  den  es  für  wenige  Mark  in  je¬ 
dem  Elektrogeschäft  gibt,  benötigt. 
Dort  sollte  man  auch  den  weiterhin 
notwendigen  Mini-Taster  bekom¬ 
men  können.  Dieser  Mini-Taster 
wird  nun  auf  die  beiden  Stifte  2  und 
6  gelötet,  so  daß  der  Tastknopf  oben 
aus  dem  Stecker  herausragt  (even¬ 
tuell  aufschneiden).  Den  ganzen 
Stecker  braucht  man  dann  nur  noch 
auf  den  seriellen  Bus  aufstecken  um 
einen  preiswerten  RESET-Knopf  zu 
haben. 

3.  RESET-Knopf  fest  eingebaut 

Die  dritte  Möglichkeit  einen 
RESET-Knopf  zu  installieren,  besteht 
darin,  ihn  fest  in  das  Gehäuse  des  C 
64  einzubauen.  Dazu  ist  es  notwen¬ 
dig,  den  Computer  zu  öffnen,  die  Ta¬ 
statur  auszustecken  und  die  Platine 
auszubauen.  Auf  der  Unterseite  der 
Platine  befinden  sich  die  Lötkontak¬ 
te  des  seriellen  Busses.  An  dieser 
links  und  oben  Mitte)  über  einen 
Druckschalter  zu  verbinden.  Der 
links  und  oben  mitte)  über  einen 
Druckschalter  zu  verbinden.  Der 
Schalter  selbst  kann  beispielsweise 
an  der  linken  Geräteseite  in  einem 
gebohrten  Loch  Bild  4  befestigt  wer¬ 
den. 
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Der  Einbau  des  Schalters  in  den 
Computer  ist  allerdings  dem  Profi 
Vorbehalten,  da  bei  falschem  Zu¬ 
sammenlöten  der  Kontakte,  bezie¬ 
hungsweise  bei  zu  starker  Erhitzung 
der  Platine,  der  Computer  ernstlich 
beschädigt  werden  kann.  Ferner  ist 
zu  bedenken,  daß  mit  diesem  Ein¬ 
griff  jeder  Garantieanspruch  verlo¬ 
ren  geht, 

Hat  man  sich  für  einen  der  drei 
Wege  entschieden  und  ihn  reali¬ 
siert,  so  wird  man  feststellen,  daß 
nach  dem  kurzzeitigen  Drücken  der 
RESET-Taste  das  Programm  ver¬ 
schwunden  ist.  Der  Computer  mel¬ 
det  sich  nach  einem  RUN  oder  LIST 
Befehl  mit  einem  freundlichen  REA¬ 
DY.  Der  Speicher  scheint  gelöscht 
zu  sein.  Das  dies  nicht  so  ist,  sieht 
man  durch  den  Einsatz  eines  Moni¬ 
tors.  Betrachtet  man  sich  den  Basic- 
Programmstart,  so  wird  man  feststel¬ 
len,  daß  das  alte  Programm  noch 
vorhanden  ist  und  nur  die  ersten 
drei  Byte  mit  Nullen  überschrieben 
wurden.  Diese  Nullen  sagen  dem 
Betriebssystem,  daß  hier  das  Pro¬ 
gramm  zu  Ende  ist  (genau  wie  nach 
einem  NEW-Befehl).  Um  das  Pro¬ 


gramm  wieder  lauffähig  zu  machen, 
müssen  nur  diese  drei  ersten  Byte 
rekonstruiert  werden. 

Der  Inhalt  des  ersten  Byte  ist  im¬ 
mer  Null,  die  beiden  Folgebyte  stel¬ 
len  einen  Zeiger  auf  den  Beginn  der 
nächsten  Basiczeile  im  Format  Low- 
Byte,  High-Byte  dar.  Diese  beiden 
Byte  werden  mit  der  Adresse  der 
nächsten  Basiczeüe  gefüllt.  Das  Pro¬ 
gramm  wird  dann  wieder  lauffähig 
sein. 

Die  Rekonstruktion  der  Adresse 
der  nächsten  Basiczeile  kann  mit  ei¬ 
nem  Monitor  geschehen,  indem  das 
nächste  Nullbyte  im  Speicher  sucht 


und  die  darauf  folgende  Adresse  in 
die  beiden  obigen  Speicherzellen 
schreibt.  Ein  weitaus  besseres  Ver¬ 
fahren  ist  der  Einsatz  eines  Pro¬ 
grammes,  das  diese  Arbeit  für  uns 
erledigt.  Das  beigefügte  Programm 
OLD  (siehe  Listing  1)  berechnet  die 
gesuchte  Adresse  und  schreibt  sie 
in  den  Speicher.  Damit  wird  der  RE¬ 
SET  beziehungsweise  ein  NEW  auf¬ 
gehoben  und  das  Programm  ist  wie¬ 
der  vorhanden. 


Es  empfiehlt  sich  das  Programm 
zunächst  abzuspeichem  und  dann 
mit  der  Fehlersuche  zu  beginnen. 
Benötigt  wird  das  OLD-Programm 
natürlich  nur  bei  Basicprogrammen, 
ein  vor  dem  RESET  im  Speicher  be¬ 
findliches  Maschinenprogramm  ist 
sofort  wieder  mit  SYS  startbar, 

Das  OLD-Programm  selbst  kann 
auf  mehrere  Arten  geladen  werden. 


Zum  einen  besteht  die  Möglichkeit, 
es  mit  einem  Monitor  im  Kassetten¬ 
puffer  (falls  frei)  abzulegen  und  als 
Maschinenprogramm  abzuspei¬ 
chern.  Zum  anderen  kann  es  mit  ei¬ 
nem  Basic-Lader  (Listing  2)  eingege¬ 
ben  werden.  In  diesem  Fall  wird  das 
Programm  ab  $0000  abgelegt,  da 
der  Kassettenpuffer  bei  einem  RE¬ 
SET  ebenfalls  gelöscht  wird.  Das 
Programm  muß  nun  jeweils  einmal 
nach  Inbetriebnahme  des  Compu¬ 
ters  geladen  und  gestartet  werden. 
Im  Fall  des  Falles  kann  man  es  dann 
mit  SYS  49152  aufrufen.  Bei  längeren 
Basicprogrammen  sollte  man  es 


aber  durch  POKE  56,124  gegen 
überschreiben  schützen. 

Der  Vorteil  der  ersten  Möglichkeit 
besteht  darin,  daß  man  das  OLD- 
Programm  jederzeit  laden  und  mit 
SYS  828  aufrufen  kann,  allerdings 
benötigt  man  einen  Monitor,  Die 
zweite  Möglichkeit  ist  zwar  einfach 
einzugeben,  zerstört  aber,  hat  man 
vergessen  das  Programm  vorher  zu 
laden,  das  zu  rettende  Basicpro- 
gramm, 
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Listing  1.  Assemblerlisting 
des  OLD-Programms 


Selbstverständlich  arbeitet  das 
OLD-Programm  auch  ohne  die  RE¬ 
SET  -  Taste,  zum  Beispiel  nach  einem 
irrtümlichen  NEW-Befehl  und  stellt 
somit  eine  Basic-Erweiterung  dar, 
die  nicht  nur  in  Verbindung  mit  der 
RESET  -  Taste  ihre  Anwendung  fin¬ 
det.  (A.  Wängler/rg) 


0  datal65, 43, 164, 44, 133, 34, 132, 35, 160, 3, 200, 177, 34, 208, 251, 200, 152, 24, 101 

1  data34, 160, 0,145,43, 165, 35, 105, 0,200, 145, 43, 136, 162, 3, 230, 34, 208, 2, 230 

2  data35, 177, 34, 208, 244, 202, 208, 243, 165, 34, 105, 2, 133, 45, 165, 35, 105, 0,133 

3  data46,96 

10  f orx=49152 to49211 ireada : pokex, a : next 


ready. 


Listing  2.  Basic-Lader  des  OLD-Programms 
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Es  kann  durchaus  sinnvoll 
bestimmte  Programme 
haft  auf  EPROMs  zu 
Zur  Programmierung  der 
ist  es  notwendig,  ein  sogenanntes 
EPROM-Programmiergerät,  auch 
EPROM-Brenner  genannt,  einzuset¬ 
zen. 

Als  Besitzer  eines  Commodore  64 
hat  man  bereits  einen  Computer, 
der  zur  Steuerung  der  Programmie¬ 
rung  eingesetzt  werden  kann.  Alles 
was  zusätzlich  gebraucht  wird,  ist 
die  entsprechende  Treibersoftware 
und  eine  Platine,  die  für  die  notwen¬ 
dige  Programmierspannung  und 
die  Aufnahme  der  EPROMs  sorgt. 
Natürlich  sollte  es  auch  möglich 
sein,  auf  verschiedene  EPROM- 
Typen  umzuschalten.  Alle  diese 
Aufgaben  übernehmen  die  zum  Test 
angetretenen  EPROM-Brenner. 

Die  Testkandidaten 

Das  Feld  der  Testkandidaten  be¬ 
stand  aus  sieben  Geräten.  Zwei  da¬ 
von  zum  speziellen  Einsatz  am  VC 
20,  zwei  nur  für  den  Commodore  64. 
Der  Rest  konnte  an  beiden  Geräten 
wahlweise  betrieben  werden.  Die 
Hersteller  der  beiden  VC  20-Mo- 
d.elle  waren  Kalawsky  und  Weber 
Computertechnik.  Die  Modelle  nur 
für  den  C  64  kamen  von  Kalawsky 
und  von  Bockstaller,  Die  übrigen 
Testteilnehmer  kamen  von  Roßmül¬ 
ler  und  je  zwei  Geräte  von  Jeschke 
und  Völzke.  Wenn  Sie  nun  mitgezählt 
haben,  werden  Sie  feststellen,  daß 
wir  eigentlich  neun  Testkandidaten 
hatten.  Da  aber  die  Geräte  von 
Jeschke  und  Völzke  identisch  sind, 
entfiel  die  Doppelzählung.  Wichtig¬ 
stes  Bewertungskriterium  war  das 
Spektrum  der  programmierbaren 
EPROMs.  Daneben  wurden  aber 
auch  die  Zuverlässigkeit,  die  Quali¬ 
tät  und  die  Handhabung  der  Platme 
im  Normalbetrieb  bewertet.  Zusätz¬ 
lich  flössen  natürlich  Sonderfunktio¬ 
nen  wie  zum  Beispiel  die  Abschalt¬ 
barkeit  des  Brenners  so  oder  ein  Re¬ 
setschalter  mit  in  die  Bewertung  ein. 


Bei  der  dazugehörig  wn  Treiber¬ 
software  wurde  vor  allem  auf  den 
Nutzen  und  die  Funktionalität  der 
Programmierbefehle  geachtet. 

Der  Testablauf 

Einem  Modell  einer  futuristischen 
Stadt  nicht  unähnlich,  präsentierte 
sich  der  EPROM-Brenner  von  Roß¬ 
müller.  Zum  Betrieb  am  User-Port 
vorgesehen  ist  die  Platine  (in  tief 
dunklem  Lötschutzlack)  mit  drei 
Schaltern  und  einer  Resettaste  aus¬ 
gestattet.  Der  kleinste  der  Schalter 
dient  der  Umschaltung  der  Pro¬ 
grammierspannung  von  21  auf  25 
Volt,  damit  auch  ältere  Typen  des 
2732  EPROMs  »geschossen«  wer¬ 
den  können.  Der  größte  der  Schal¬ 
ter  (sage  und  schreibe  5  cm  hoch) 
dient  der  Umschaltung  zwischen 
den  verschiedenen  EPROM-Typen. 


Einer  für  alle 


Diese  etwas  unkonventionelle  Lö¬ 
sung  erwies  sich  im  Test  als  sehr 
praktikabel,  zumal  die  dazugehö¬ 
rende  Software  die  Bedienung  des 
Schalters  unterstützt.  Sehr  ange¬ 
nehm  fielen  auch  die  Abschaltbar¬ 
keit  der  gesamten  Platine  (Schalter 
3)  und  der  durchgeführte  User-Port 
auf.  Das  Programmiergerät  braucht 


somit  nicht  entfernt  zu  werden,  wenn 
es  nicht  benutzt  wird.  Der  Aufnah¬ 
mesockel  für  die  EPROMs  von  Tex¬ 
tool  dürfte  der  wohl  beste  derzeit  zur 
Verfügung  stehende  Sockel  sein. 

Gespannt  waren  wir,  ob  der  positi¬ 
ve  Eindruck,  den  die  Platme  mach¬ 
te,  auch  bei  der  Treibersoftware  er¬ 
halten  bleiben  würde.  Keine  Frage, 
wie  sich  schon  bald  herausstellte. 
Der  Aufbau  der  Treibersoftware  ist 
ansprechend  in  Form  von  Menüs  ge¬ 
löst  worden.  Das  erste  Menü  erwar¬ 
tet  die  Eingabe  des  zu  programmie¬ 
renden  EPROM-Typs  (natürlich  al¬ 
les  auf  Tastendruck).  Die  dort  aufge¬ 
führte  Liste  der  programmierbaren 
EPROMs  war  beeindruckend  und 
ließ  keine  Wünsche  offen.  Es  kön¬ 
nen  alle  Typen  von  1  KByte  bis  32 
KByte  »geschossen«  werden. 

Nach  der  Wahl  des  EPROM-Typs 
erscheint  das  eigenüiche  Hauptme- 
nü.  Die  »normalen«  Befehle  wie  Pro¬ 
grammieren,  Vergleichen,  Lesen, 
Leertest  und  Rückkehr  in  das  Ty¬ 
penwahlmenü  brauchen  kaum  er¬ 
klärt  werden,  sie  funktionieren  lo¬ 
gisch  und  einfach.  Besonderes  Au¬ 
genmerk  sollte  aber  den  Befehlen 
»M«  zum  Verschieben  von  Speicher¬ 
bereichen,  »L«  zum  Laden  von  Kas¬ 
sette  oder  Diskette  und  »S«  zum  Spei¬ 
chern  auf  Kassette/Diskette  ge¬ 
schenkt  werden.  Da  der  betreffen¬ 
de  Speicherbereich  dabei  frei  ge¬ 
wählt  werden  kann,  stellen  die  Be¬ 
fehle  eine  sehr  nützliche  Hüfe  dar. 

Wünschenswert  wäre  allerdings 
noch  die  Möglichkeit,  einen  Hex- 
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Was  leisten  die  Geräte,  mit  denen  der  C  64  zum  EPROM-Programmiergerät  wird? 
Wo  liegen  die  Leistungsunterschiede  und  welches  Gerät  bietet  am  meisten  für 
seinen  Preis?  Unser  Test  gibt  Antwort  auf  diese  Fragen. 
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Diese  Tabelle 
zeigt  die  gete¬ 
steten  EPROM- 
Brenner  in  ei¬ 
ner  verglei¬ 
chenden  Über¬ 
sicht 


Dump  des  betreffenden  Speicher¬ 
bereichs  (zum  Ansehen  und  Än¬ 
dern)  aufrufen  zu  können. 

Der  EPROM  64  von  Roßmüller 
kommt  ohne  zusätzliches  Netzteil 
aus.  Im  praktischen  Betrieb  konnten 
wir  keinen  Nachteil  an  dieser  Lö¬ 
sung  finden.  Erhältlich  ist  der 
EPROM  64  für  zirka  200  Mark  als 
Fertiggerät  und  für  zirka  100  Mark 
als  Aufbauplatine  für  den  Bastler. 

Das  Schmuckstück 

Silbrig  glänzend,  fast  wie  ein 
Schmuckstück,  präsentierte  sich 


der  EPROM-King  von  Kalawsky.  Der 
Realisierungsweg,  der  von  dieser 
Firma  beschriften  wurde,  unter¬ 
scheidet  sich  von  dem  aller  anderen 
Kandidaten.  Der  EPROM-King  wird 
nicht  am  User-Port,  sondern  am 
Expansion-Port  in  Betrieb  genom¬ 
men.  Damit  ist  der  Vorteil  verbun¬ 
den,  einem  Modul  mit  Treibersoft¬ 
ware  direkt  in  die  auf  der  Platine 
vorhandene  User-Port-Buchse  ein¬ 
stecken  zu  können.  Wird  es  aber 
vorgezogen,  die  Software  von  Kas¬ 
sette  oder  Diskette  zu  laden,  kann 
hier  ein  Modul  mit  beliebiger  Soft¬ 
ware  eingesteckt  werden.  Bei  der 
Stromversorgung  findet  sich  die 


nächste  Besonderheit  dieses  Ge¬ 
räts:  Es  wird  von  einem  externen 
Netzteil  mit  der  notwendigen  Ver¬ 
sorgungsspannung  beliefert.  Auf 
der  Platine  selber  sind  der  (leider 
nicht  optimale)  Stecksockel,  ein  Re¬ 
setschalter  und  eine  Reihe  von  nütz¬ 
lichen  LEDs  angeordnet,  Das  fal¬ 
sche  Einstecken  des  EPROMs  wird 
durch  die  Lichtsignale  der  LEDs  fast 
unmöglich  gemacht, 

Auch  bei  der  Treibersoftware  und 
der  Anleitung  wurde  sehr  darauf 
geachtet,  jeden  Anwenderfehler 
möglichst  zu  verhindern.  Der  sehr 
gute  optische  Eindruck  der  Softwa¬ 
re  (viel  Farbe,  strukturierte  Menüs) 
wurde  sogar  noch  durch  Tonsignale 
aufgewertet.  Richtig  durchgeführte 
Operationen  werden  durch  einen 
hellen  Ton,  Fehler  mit  einem  tiefen 
signalisiert.  Auch  beim  EPROM- 
King  ist  das  erste  Menü  der  Wahl 
des  EPROM-Typs  Vorbehalten.  Hat 
man  sich  für  einen  der  vielen  Typen 
(1  KByte  bis  16  KByte)  entschieden, 
erscheint  das  Hauptmenü  mit  sei¬ 
nen  umfangreichen  Befehlen.  Die 
Standardfunktionen  sind  natürlich 
auch  hier  vorhanden,  werden  aber 
durch  Lade-  und  Speicherbefehle 
ergänzt.  Das  Einlesen  des  Directory 
ist  dabei,  ohne  das  Programm  zu 
verlassen,  möglich,  Erfreulich  ist 
der  sinnvolle  Einsatz  der  Funktions¬ 
tasten.  Schade,  daß  kein  Maschinen¬ 
sprachemonitor  eingebaut  ist,  denn 
sonst  wäre  die  Treibersoftware  als 
uneingeschränkt  vorbildlich  zu  be¬ 
zeichnen. 

Der  EPROM-King  wird  als  Fertig¬ 
gerät  für  zirka  245  Mark  inklusive 
Netzteil  und  Software  geliefert. 

Die  Version  des  EPROM-King  für 
den  VC  20  unterscheidet  sich  zwar 
äußerlich,  von  den  gebotenen  Lei¬ 
stungskriterien  aber  kaum,  von  der 
Version  für  den  C  64.  Lediglich  auf 
das  Netzteil  wurde  verzichtet  und 
ein  leider  noch  schlechterer  Steck¬ 
sockel  für  die  EPROMs  eingebaut. 
Die  Treibersoftware  ist  für  beide 
Geräte  gleich  komfortabel, 

Nun  waren  schon  zwei  Kandidaten 
auf  dem  Weg  zum  Testsieg.  Uns  wur¬ 
de  langsam  klar,  daß  es  eine 
schwierige  Entscheidung  werden 
würde.  Zuvor  durften  aber  auch  die 
restlichen  Testkandidaten  ihre  Vor¬ 
züge  beweisen.  Ihnen  voran  die  Mo- 
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Fortsetzung  von  Seite  37 

delle  V  64  und  Mod.  128  von  Jesch- 
ke/Völzke.  Alle  Typen  finden  ihren 
Anschluß  am  User-Port  und  können 
sowohl  am  VC  20  als  auch  am  C  64 
eingesetzt  werden.  Ein  Ladepro¬ 
gramm  sorgt  dafür,  daß  die  richtige 
Treibersoftware  nachgeladen  wird. 

Auch  hier  findet  wieder  der  exzel¬ 
lente  Textoolsockel  Verwendung. 
Zusätzlich  sind,  die  bei  diesen  Mo¬ 
dellen  besonders  wichtigen,  Um- 

Gute  Leistung,  wenig 
Komfort 

Schalter  auf  der  Platine  angebracht. 
Mit  Ihnen  kann  der  richtige  EPROM- 
Typ  eingestellt  werden.  Hier  liegt 
auch  der  Unterschied  zwischen  den 
Modellen  V  64  und  Mod.  128.  Der 
EPROM-Brenner  128  kann  alle 
EPROM-Typen  neueren  Datums  (A, 
B,  C)  zwischen  1  KByte  und  16  KByte 
programmieren.  Beim  Modell  V  64 
sind  nur  EPROMs  bis  4  KByte  mög¬ 
lich. 

Da  die  Auswahl  des  EPROM-Typs 
bereits  durch  Einstellen  der  Schal¬ 
ter  auf  der  Platine  vorgenommen 
werden  muß,  entfallen  diese  Punkte 
im  Menü  der  Treibersoftware.  Dort 
finden  sich  aber  zwei  interessante 
Befehle:  Erstens  besteht  die  Mög¬ 
lichkeit,  einen  bestimmten  Spei¬ 
cherbereich  im  hexadezimalen  For¬ 
mat  zu  betrachten  und  zweites  kann 
eine  Funktion  beliebig  oft  wieder¬ 
holt  werden.  Da  im  Menü  selber 
kem  spezieller  Punkt  zum  Laden 
oder  Abspeichem  von  Program¬ 
men  besteht,  kann  mit  dem 
Hexdump-Befehl  kontrolliert  wer¬ 
den,  ob  das  richtige  Programm  in 
den  Speicher  geladen  wurde.  »Fehl¬ 
schüsse«  von  EPROMs  sind  deshalb 
bei  sorgfältigem  Arbeiten  weniger 
wahrscheinlich.  Verglichen  mit  den 
beiden  Programmen  der  bisher  ge¬ 
testeten  Konkurrenten  ist  die  Trei¬ 
bersoftware  allerdings  etwas  ein¬ 
fach  und  optisch  wenig  anspre¬ 
chend.  Bei  einem  Preis  von  zirka  249 
Mark  für  das  große  Modell  und  179 
für  das  kleine  sind  die  Leistungen 
dieser  beiden  Geräte  etwas  mager 
ausgefallen. 

Mit  eigener  Stromversorgung, 
aber  ohne  externes  Netzteil?  Kein 


Widerspruch,  wenn  man  das  Gerät 
von  Bockstaller  betrachtet.  In  einer 
Art  Huckepackverfahren  wurde  die 
Platme  mit  einem  eigenen  Netzteil 
ausgestattet,  das  direkt  hinter  dem 
einfachen  Stecksockel  seinen  Platz 
gefunden  hat.  Das  Netzkabel  muß 
natürlich  trotzdem  angeschlossen 
werden.  Das  bedeutet,  daß  (zwar 
mit  Epoxyharz  gesichert),  220  Volt 
auf  der  Platine  sind.  Ein  unserer 
Meinung  nach  nicht  sinnvolles  Ver¬ 
fahren,  zumal  ein  fester  Sitz  des  rela¬ 
tiv  schweren  Trafos  zwar  auf  Monate 
hinaus  garantiert  werden  kann, 
aber  bei  jahrelanger  Beanspru¬ 
chung...  wer  weiß?  Die  Leistungen 
dieses  Gerätes  halten  sich,  wie  die 
Vergleichstabelle  zeigt,  in  beschei¬ 
denen  Grenzen. 


Der  Selbstversorger 

Auch  die  beigefügte  reibersoft- 
ware  konnte  weder  von  der  Ausstat¬ 
tung  noch  der  grafischen  Darstel¬ 
lung  mit  den  bisher  getesteten  kon¬ 
kurrieren.  Die  Auswahlpunkte  des 
Menüs  beschränkten  sich  auf  die 
unverzichtbaren  Standardfunktio¬ 
nen.  Bei  einem  Preis  von  zirka  270 
Mark  kann  diesem  Gerät  leider  kein 
besonders  gutes  Preis/Leistungs¬ 
verhältnis  bescheinigt  werden.  Au¬ 
ßerdem  empfehlen  wir,  die  Platine 
und  die  Anleitung  (eine  Seite!)  noch¬ 
mals  zu  überarbeiten. 

Basicprogramme 
einfach  gebrannt 

Das  letzte  zum  Test  angetretene 
Gerät  von  Weber  Computertechnik 
ist  zum  Einsatz  am  VC  20  vorgese¬ 
hen.  Die  Platine  ist  sehr  übersicht¬ 
lich  aufgebaut  und  verfügt  über  den 
mittlerweüe  bekannten  Textool 
Sockel.  Der  Expansion  Port  des  VC 
20  ist  erfreulicherweise  durchge¬ 
führt,  so  daß  dieses  zirka  190  Mark 
kostende  Gerät  im  Normalbetneb 
nicht  entfernt  zu  werden  braucht. 
Die  eigentliche  Besonderheit  des 
EPROM-Brenners  liegt  in  der  Art 
seiner  Treibersoftware.  Sie  ist  in 
Form  eines  EPROMs  auf  der  Platme 
eingesteckt  und  wird  nach  dem  An¬ 
schalten  lediglich  über  den  SYS- 


Befehl  aufgerufen.  Das  ist  aber  nicht 
der  einzige  Vorteil  dieser  Lösung: 
Es  stehen  zwei  verschiedene  Versio¬ 
nen  von  Software-EPROMs  zur  Ver¬ 
fügung.  Mit  dem  Basic-EPROM  ist  es 
möglich,  ein  Basic-Programm  in  ei¬ 
nen  EPROM  zu  brennen.  Das  Ma- 
schinensprache-EPROM  erfüllt  die 
gleiche  Aufgabe  mit  reinen  Maschi¬ 
nensprache-Programmen. 

Der  Aufbau  der  Treibersoftware 
ist  grafisch  und  inhaltlich  sehr  an¬ 
sprechend  und  benutzerfreundlich 
gestaltet  worden.  Es  wird  oft  ver¬ 
langt,  die  gewünschte  Funktion,  falls 
sie  einen  Schaden  verursachen 
könnte,  nochmals  zu  bestätigen. 
Auch  hier  finden  sich  Befehle  zum 
Verschieben  von  Speicherberei¬ 
chen  und  eme  Monitorfunktion.  Die 
vorhegende  Version  dieses 
EPROM-Brenners  kann  mit  der 
Basic-Software  vier  KByte  große 
Programme  auf  EPROM  brennen.  In 
der  Maschinenspracheversion  sind 
EPROMs  von  einem  KByte  bis  acht 
KByte  programmierbar.  Ein  ähnli¬ 
ches,  mit  erweiterten  Funktionen 
(bis  32  KByte)  ausgestattetes  Pro¬ 
grammiergerät  für  den  C  64,  lag 
zum  Test  leider  noch  nicht  vor,  soll 
aber  mittlerweile  erhältlich  sein. 

Die  Entscheidung  war  nicht  ein¬ 
fach.  Zu  verschieden  smd  die  gebo¬ 
tenen  Leistungen.  An  der  Spitze  des 
Testfeldes  lagen,  in  einem  Kopf-an- 
Kopf-Rennen,  die  beiden  Geräte 
von  Roßmüller  und  Kalawsky.  Jeder 
mit  seinen  besonderen  Vorzügen. 
Die  Entscheidung  fiel  schließhch 
aufgrund  der  eingebauten  Monitor¬ 
funktionen  und  der  Fähigkeit,  32 
KByte  EPROMs  zu  programmieren, 
zugunsten  des  Modells  von  Roßmül¬ 
ler  aus.  Mit  sehr  guten  Leistungen 
und  komfortabler  Treibersoftware 
Platz  zwei  für  den  Kalawsky 
EPROM-Kmg.  Leicht  fiel  die  Ent¬ 
scheidung  für  den  dritten  Platz. 

Obwohl  die  Software  noch  nicht 
voll  befriedigen  konnte,  die  Leistun¬ 
gen  aber  durchaus  sehenswert 
sind,  belegten  die  Modelle  128  von 
Jeschke/Völzke  den  dritten  Platz. 
Bei  den  anderen  Modellen  wurde 
darauf  verzichtet,  eine  weitere  Plat¬ 
zierung  vorzunehmen,  weil  jedes 
von  Ihnen  seine  eigenen  Vorteile  be¬ 
sitzt,  die  bei  der  individuellen  Kauf¬ 
entscheidung  mehr  oder  weniger 
ins  Gewicht  fallen.  Bleibt  zu  hoffen, 
daß  dieser  Artikel  wieder  einige  C 
64/VC  20  Besitzer  dazu  angeregt 
hat,  auch  diese  Anwendungsmög- 
hchkeit  ihres  Computers  verstärkt 
auszunutzen. 

(Amd  Wängler/gk) 
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C  64 


Die  Programmiersprache 
Comal  für  den  C  64 
soll  eine  Herausforderung 
an  Pascal,  Modula-2, 
PL/1  und  C  sein. 
Betrachtet  man  den 
Befehlsumfang  und  den 
Komfort  dieser 
Sprache,  so  könnte  dies 
zutreffen.  Auch  der 
Preis  ist  eine  Sensation. 
Diese  Sprache  wird 
umsonst  abgegeben. 

Viele  C  64-Besitzer  werden  beim 
Programmieren  festgestellt  ha¬ 
ben,  daß  das  Commodore-Basic 
auf  ihrem  Computer  nicht  gerade 
ideal  ist.  In  diesem  Fall  gibt  es  zwei 
Möglichkeiten.  Entweder  man  kauft 
sich  eine  Basicerweiterung  oder 
man  sieht  sich  nach  einer  komforta¬ 
bleren  Programmiersprache  um.  In¬ 
zwischen  werden  für  den  C  64  eini¬ 
ge  Sprachen  angeboten.  So  auch 
Comal. 

Doch  wo  liegen  bei  dieser  Spra¬ 
che  die  Vorteile  und  Unterschiede 
gegenüber  Basic  und  den  anderen 
Programmiersprachen?  Zuerst  wol¬ 
len  wir  den  Befehlsumfang  von  Co¬ 
mal  betrachten. 

Comal  verfügt  über  69  Befehle 
(Tabelle  1).  Um  die  speziellen  Mög¬ 
lichkeiten  des  C  64  zu  nutzen,  sind 
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Comal  Bedeutung  Befehlsform 

Schlüsselbefehle 


II 

ABS 

AND 

APPEND 

ATN 

AUTO 

BASIC 

CASE 

CAT 

CHAIN 

CHR$ 

CLOSE 

CLOSED 


CON 

COS 

DATA 

DEL 

DELETE 

DIM 


DIV 

DO 

EDIT 

ELIF 

ELSE 


Kommentarzeile 
ergibt  den  Absolutwert 
einer  Zahl 
logisches  »und« 

Start  und  Ende  eines 
sequentiellen  Files 
Arcustangens  (rad) 
automatische  Zeilen¬ 
numerierung 
zurück  in  Basic-Modus 
Mehrfachbedingung 
Directory 

Laden  und  Starten  von 
Diskettenprogrammen 
Characterstring 
schließt  Files 
Geltungsbereich  von 
Prozedur  oder  Funkti¬ 
onsvariablen  begrenzen 

Programm  fortsetzen 
Cosinus  (rad) 

Datazeilen 
löscht  Zeilen 
löscht  File  auf  Disk 
Dimensionieren  eines 
Feldes 


Division 

führe  die  folgenden 
Befehle  aus 
listet  Programme  ohne 
Zeileneinrückung 
ELSE  IF 

alternative  Befehle  in 
IF-Konstrukten 


//(Kommentar) 

ABS(  <  numerischer  Ausdruck  > ) 

<  Ausdruck  >  ÄND  <  Ausdruck  > 
OPEN(FILE)  <  filenum  > , 

<  filename  >,  APPEND 

ATN(  <  numerischer  Ausdruck  > ) 
( <  Zeilenanfang  > ),( <  Schritt¬ 
weite  >) 

BASIC 

CASE  <  Kontrollausdruck  >  (OF) 
CAT(  <  Laufwerknummer  > ) 
CHAIN  <  filename  > 


CHR$(  <  numerischer  Ausdruck  >) 
CLOSE((FILE)  <  filenummer  > ) 

PROC  <  procname  >  ((Parameter)) 
(CLOSED) 

FUNC  <  funcname  >  ((Parameter)) 
(CLOSED) 

CON 

COS(<  numerischer  Ausdruck>) 
DATA  <  Zahl  >,... 

DEL  <  Bereich  > 

DELETE  <  filename  > 

DIM  <  string  var>  OF  <  max.char  > 
DIM  <  string  arxay  >  ( <  array  index  > ) 
OF  <  max.char  > 

DIM  <  arrayname  >  ( <  array  index  > ) 
<  Divident  >  DIV  <  Divisor  > 

DO  <  Befehl  > 


EDIT(  <  Bereich  >  ) 


ELIF  <  Ausdruck  >  THEN 
ELSE 


END 

ENDCASE 

ENDFOR 

ENDFUNC 

ENDIF 

ENDPROC 

ENDWHILE 

ENTER 

EOD 

EOF 

ESC 

EXEC 

EXP 

FALSE 


beendet  Programm  END 

beendet  CASE-Konstrukt  ENDCASE 

beendet  FOR-Konstrukt  ENDFOR 

beendet  Funktion  ENDFUNC(<function  name  >) 

beendet  IF-Konstrukt  ENDIF 


beendet  Prozedur 
beendet  WHILE-Konstrukt 
ein  Programmsegment 
von  Diskette  »mergen« 
End  Of  Data  flag 
End  Of  File  flag 
stop  key  pressed  flag 
führe  eine  Prozedur  aus 

Exponent 

vordefinieren: 


ENDPROC(  <  procname  > ) 

ENDWHILE 

ENTER  <  filename  > 

EOD 

EOF(<  filenum  >) 

ESC  TRAP  ESC  <  type  > 

(EXEC)  <  procname  >  (( <  Übergabe¬ 
parameter  >)) 

EXP(  <  numerischer  Ausdruck  >  ) 
False 


Value  =  0 

FILE  definiert  welches  File 

benutzt  wird 


Tabelle  1.  Befehlsübersicht  von  Comal 


FOR 

beginnt  FOR  Schleife 

FUNC 

beginnt  Mehrzeilen¬ 
funktion 

GOTO 

Sprungbefehl 

IF 

Beginn  IF-Konstrukt 

IN 

lokalisiert  Stringl  in 
String2 

INPUT 

Eingabe  von  Tastatur 
oder  File 

INT 

gibt  die  nächste  ganze 
Zahl  kleiner  oder  gleich 

KEY$ 

prüft  Tastatur 

LABEL 

vergibt  Namen  an  Zeilen¬ 
nummer 

INPUT  FILE  <  filenum  > 

(,  <  reenum  > ):  <  varlist  > 

PRINT  FILE  <  filenum  > 

(,  <  reenum  > ):  <  varlist  > 

READ  FILE  <  filenum  > 

(,  <  reenum  > ):  <  varlist  > 

WRITE  FILE  <  filenum  > 

(,<  reenum  >):  <  varlist  > 

OPEN  (FILE)  <  filenum  > , 

<  filename  >  (,  ctype  > ) 

CLOSE  ((FILE)  <  filenum  >) 

FOR<var>  =  <  Start  >  TO  <end> 

(STEP)  (DO) 

FUNK  <  name  >  (( <  params  > )) 

(CLOSED) 

GOTO  dabei  name> 

IF<  Bedingung  >(THEN) 

IF  <  bedingung  >  THEN  <  Befehl  > 

<  stringl  >IN  <  string2  > 

INPUT(  <  promt  > :)  <  varLIST  > 

INPUT  FILE  (s.o.) 

INT  <  numerischer  Ausdruck  > 

KEY$ 

<  label  name  > 
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Software 


Befehlsform 


diese  Befehle  um  drei  weitere  Be¬ 
fehlsblöcke  erweitert  worden.  Die¬ 
se  Erweiterungen  umfassen  die 
Sprite,  die  HiRes-  und  die  Turtle- 
Grafik  sowie  die  Musik.  Zwölf  spe¬ 
zielle  Befehle  stehen  für  die  Sprites 
zur  Verfügung.  Vergleicht  man  diese 
Erweiterung  mit  der  Programmier¬ 
sprache  Logo,  so  stehen  immer  noch 
fünf  zusätzliche  Befehle  zur  Auswahl 
(Tabelle  1).  Auch  bei  den  HiRes-  und 
Turtle-Grafik-Befehlen  hat  man  ge¬ 
genüber  Logo  fünf  zusätzliche  Be¬ 
fehle  (Tabelle  2).  Die  Befehle  sind 
sehr  leicht  zu  handhaben  und  prä¬ 
gen  sich  schnell  ein. 


Nun  zu  der  Schnelligkeit 


Comal  ist  mit  einem  »Three  pass 
interpreter  —  run  time  Compiler« 
ausgerüstet.  Der  erste  »pass«  setzt 
gleich  beim  Programmieren  ein.  Al¬ 
le  Zeilen  werden,  sobald  sie  abge¬ 
schlossen  worden  sind,  auf  die  Syn¬ 
tax  überprüft.  Dies  ist  ein  extremer 
Vorteil  gegenüber  Basic,  denn  57 
verschiedene  Fehlermeldungen 
stehen  Comal  zur  Verfügung.  So  ist 
ein  Fehler  leicht  zu  lokalisieren  und 
eine  langwierige  Fehlersuche 
bleibt  dem  Programmierer  erspart. 
Laut  Hersteller  smd  Fehler  drei  bis 
zehn  mal  schneller  zu  beseitigen  als 
in  Basic. 

Im  zweiten  »pass«  werden  die  Be¬ 
fehlsstrukturen  auf  Korrektheit 
überprüft  und  die  Sprungadressen 
in  Absolutadressen  umgerechnet. 
Dieser  Durchlauf  wird  durch  RUN 
ausgelöst  und  nimmt  normalerweise 
weniger  als  eine  Sekunde  in  An¬ 
spruch. 
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Comal  Bedeutung 

Schlüsselbefehle 


LEN 

definiert  Länge 
eines  Strings 

LEN(<  string  Ausdr.  >)  Strings 

LET 

besetzt  Variablen 

:  = 

LIST 

listet  Programm 

LIST(  <  Bereich  >  X  <  filename  > ) 

LOAD 

lädt  Programm  von  Disk 

Load  <  filename  > 

LOG 

Logarithmus  von  n 

LOG(<  numerischer  Ausdruck  >) 

MOD 

ergibt  REST  der  Division 

<  Divident  >  MOD  <  Divisor  > 

NEW 

löscht  Arbeitsspeicher 

NEW 

NOT 

logisches  NEIN 

NOT  <  Bedingung  > 

NULL 

bewirkt  nichts 

NULL 

OF 

Teil  von  DIM-  und  CASE- 

CASE  <  Ausdruck  >  OF 

Konstrukten 

DIM  <  stringvar  >  OF  <  max.char  > 
DIM  <  stringarray  >  (array  index  > 
OF<  max.char  > 

OPEN 

öffnet  ein  File 

siehe  »FILE« 

OR 

logisches  ODER 

<  Bedingung  >  OR  <  Bedingung  > 

ORD 

ergibt  Zahl  die  einem 
Charakter  entspricht 

ORD(  <  string-Ausdruck  > ) 

OTHERWISE 

entspricht  bei  CASE  dem 
ELSE  bei  IF 

OTHERWISE  <  Bedingung  > 

OUTPUT 

wählt  Ausgabegerät 

SELECT  (OUTPUT)  <  type  > 

PASS 

übergibt  einen  String  an 
den  Kommandokanal  der 
Disk 

PASS  <  disc  command  > 

PEEK 

ergibt  den  Inhalt  einer 
Speicheradresse 

PEEK  <  Speicheradresse  > 

POKE 

besetzt  Speicheradresse 

POKE  <  Speicheradresse  >, 

<  Bedingung  > 

PRINT 

schreibt  auf  Drucker, 

PRINT(FILE  <  filenum  > :) 

Bildschirm  oder  File 

(<items>) 

Tabelle  1.  Befehlsübersicht  von  Comal 
(Fortsetzung) 

PRINT(FILE  <  filenum  >  :)USING 
<  FORMAT  > :  <  vars  >  (RANDOM  file 
use:(file<filnum>,<recnum>  :)) 

PROC 

startet  Mehrzeilen  Pro- 

PROC  <  name  >  (( <  params  > )) 

zeduren 

(CLOSED) 

RANDOM 

wahlfreier  Zugriff  auf 

OPEN  FILE  <  filenum  > ,  <  filename), 

Disk-File 

RANDOM  <recln> 

READ 

Da'as  oder  File  lesen 

READ<var  list  > 

READ  FILE  <  filenum  >  (,  <  rec 
num>):<  varlist  > 

OPEN(FILE)  <  filenum  > ,  <  file 
name  >, RE  AD 

REF 

Parametervariable  wird 
in  einer  Prozedur 
verwendet 

REF<var> 

RENUM 

Renumber  Programm 

RENUM  (  <  targetstart  >  X. 

<  Schrittweite  >) 

REPEAT 

Beginn  des  REPEAT-Kon- 
struktes 

REPEAT 

RESTORE 

Datenzeiger  auf  ersten 
Data-Wert  zurücksetzen 

RESTORE 

RND 

Zufallszahl 

RND(<num>) 

RUN 

Programmstart 

RUN 

SAVE 

Programm  auf  Disk 
speichern 

SAVE  <  filename  > 

SELECT 

Ausgabegerät  wählen 

SELECT(OUTPUT)  <  type  > 

SGN 

-1  wenn  negativ 

0  wenn  0 
+ 1  wenn  positiv 

SGN(numerischer  Ausdruck) 

SIN 

Sinus  (rad) 

SIN(numerischer  Ausdruck) 

SIZE 

gibt  benötigten 
Speicherplatz  an 

SIZE 

SQR 

Quadratwurzel 

SQR(  <  numerischer  Ausdruck  >) 

STATUSS 

Status  vom  Disk-Kanal 

STATUSS 

STEP 

Angabe  für  die  Schritt¬ 
weite  in  Schleifen 

STEP  <  numerischer  Ausdruck  > 

STOP 

Ende  des  Programms 

STOP 

SYS 

startet  Maschinen¬ 
programme 

SYS(  <  Speicheradresse  > ) 

TAB 

Tabulator 

TAB(  <  Spaltennummer  > ) 

TAN 

Tangens  (rad) 

TAN(<  numerischer  Ausdruck  >) 

THEN 

Teil  des  IF-Konstruktes 

THEN 

TO 

Endangabe  für  Schleifen 

<  startnum  >TO  <  endnum  > 

TRAP 

Ausschalten  des  Stopkey 

TRAPESC<type> 

TRUE 

Variable  mit  eins 
vorbesetzen 

TRUE 

UNIT 

Gerät  definieren 

OPEN 

FILE  <#>,<nm>  ,UNIT  <def  > 
(,<sec>X,<type>) 
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Software 


UNTIL 

Ende  der  REPEÄT- 
Schleife 

UNTIL  <  Ausdruck  > 

USING 

erlaubt  formatierten 

Output 

PRINT  USING  <  format  > :  <  varlist  > 

WHEN 

Auswahl  in  CASE-Kon- 
strukt 

WHEN <  list  of  values  > 

WHILE 

Beginn  WHILE-Konstrukt 

WHILE  <  Ausdruck  >  (DO) 

(<  Befehl  >) 

WRITE 

Schreiben  in  ein  File 

WRITE  FILE  <  filenum  >  (,  <  reenum 
>):<var  list> 

OPEN  (FILE)  <  filenum  > ,  <  file 
name>, WRITE 

ZONE 

Tabellenbereich 

ZONE  <  tab  interval  >  ZONE 

Spezielle  Spritebefehle 

DATÄCOLLISION 

Kollisionsabfrage  mit 

DATÄCOLLISION  <  sprite  #  >,  <res- 

Data 

et  collisn  fLg?  > 

DEFINE 

Sprite  für  späteren  Ge¬ 

DEFINE  <  sprite  definition  num> 

brauch  definieren 

,<64  byte  def$> 

HIDESPRITE 

bestimmtes  Sprite  aus¬ 
schalten 

HIDESPRITE  <  sprite  number> 

IDENTIFY 

einem  Sprite  eine 

IDENTIFY  <sprite  number>, 

Nummer  zuordnen 

<  definition  number  > 

(Bemerkung:Sprite 

7  wird  für  TURTLE  benutzt) 

PRIORITY 

gibt  Sprite  Priorität 

PRIOITY  <sprite  num  > ,  <data 

über  Data 

priority?  > 

SPRITEBACK 

setzt  zwei  Multicolor- 
Sprite  Farben 

SPRITEBACK  <  colorl  > ,  <color2  > 

SPRITECOLLISION 

testet  Spritekollision 

SPRITECOLLISION <  sprite #  >, 
<reset  collisn  flg?> 

SPRITECOLOR 

setzt  Sprite-Farbe 

SPRITECOLOR < sprite  number>, 
<color  number  > 

SPRITEPOS 

positioniert  Sprite  auf 

SPRITEPOS  <  sprite  #  > ,  <  x  coord  > 

x,y  Position 

,  <y  coord  > 

SPRITE  SIZE 

setzt  Sprite-Größe 

SPRITESIZE  <  sprite  #  > , 

<x  expand?>,<y  expand?> 


Comal 


Der  dritte  »pass«  ist  der  normale 
Programmlauf, 

Im  direkten  Zeitvergleich  ist  Co¬ 
mal  sechsmal  schneller  als  Basic. 
Die  Suche  nach  Strings  soll  nach 
Herstellerangabe  sogar  79mal 
schneller  als  in  Basic  sein.  Weiterhin 


Tabelle  2.  TURTLE  GRAFIK  von  Comal  im  Vergleich  zu  Logo 


TURTLE  GRAPHICS 

C  64  LOGO 

C  64  LOGO 

C  64  COMAL 

C  64  COMAL 

CHART  Items 

WORD 

EXAMPLE 

WORD 

EXAMPLE 

TURTLE  CONTROL: 
Move  forward  length 

FORWARD 

FORWARD  100 

FORWARD 

FORWARD  100 

Move  to  a  point 

Move  backward 

SETXY 

SETXY  45 

SETXY 

SETXY  4,5 

length 

BACK 

BACK  THISFAR 

BACK 

BACK  THISFAR 

Home  turtle 

HOME 

HOME 

HOME 

HOME 

Turn  turtle  left 

LEFT 

LEFT  90 

LEFT 

LEFT  90 

Turn  turtle  right 

RIGHT 

RIGHT  MY- 

RIGHT 

RIGHT  MY- 

TURN 

TURN 

Turn  to  specific  hea- 

SETHEADING 

SETHEADING  0 

SETHEADING 

SETHEADING  0 

ding 

Make  turtle  visible 

SHOWTURTLE 

SHOWTURTLE 

SHOWTURTLE 

SHOWTURTLE 

Make  turtle  Invisible 

HIDETURTLE 

HIDETURTLE 

HIDETURTLE 

HIDETURTLE 

Pen  up  off  paper 

PENUP 

PENUP 

PENUP 

PENUP 

Pen  down  on  paper 

PENDOWN 

PENDOWN 

PENDOWN 

PENDOWN 

Set  pen  color 

PENCOLOR 

PENCOLOR  4 

PENCOLOR 

PENCOLOR  4 

Number  of  colors 

16 

16 

Set  size  of  turtle 

— 

— 

TURTLESIZE 

TURTLESIZE  6 

Plot  a  point 

— 

— 

PLOT 

PLOT  20,35 

Print  text  in  graphics 

? 

? 

PLOTTEXT 

PLOTTEXT 

1 ,1  .»TEXT« 

SCREEN  AND  COLOR  CONTROL: 

Clear  graphics  screen 

CLEARSCREEN 

CLEARSCREEN 

CLEAR 

CLEAR 

Set  to  graphics  mode 

DRAW 

DRAW 

SETGRAPHIC 

SETGRAPHIC 

Set  to  text  screen 

NODRAW 

NODRAW 

SETTEXT 

SETTEXT 

Set  background  color 

BACKGROUND 

BACKGROUND 

O 

BACKGROUND 

BACKGROUND 

O 

Set  border  color 

— 

C. 

BORDER 

c. 

BORDER  4 

Fill  in  an  area 

— 

— 

FILL 

FILL  25,20 

Full  screen  mode 

FULLSCREEN 

FULLSCREEN 

FULLSCREEN 

FULLSCREEN 

Split  screen  mode 

SPLITSCREEN 

SPLITSCREEN 

SPLITSCREEN 

SPLITSCREEN 

FUNCTION  KEYS  RESULTS: 

Fl 

TEXT  SCREEN 

TEXT  SCREEN 

F3 

SPLITSCREEN 

SPLITSCREEN 

F5 

FULLSCREEN 

FULLSCREEN 

F7 

GRAPHICS 

GRAPHICS 

soll  man  seine  Programme  drei-  bis 
zehnmal  schneller  erstellen  können. 

Auch  ist  zu  erwähnen,  daß  Comal 
strukturiertes  Programmieren  voll 
unterstützt. 

Besonders  muß  darauf  hingewie 
sen  werden,  daß  die  Diskette  mit 
dieser  Programmiersprache  nicht 
kopiergeschützt  ist,  und  man  sich  so 
beliebig  viele  Backups  herstellen 
kann. 

Diese  Sprache  gibt  es 
fast  kostenlos 


Wie  im  Vorspann  schon  erwähnt, 
wird  diese  Sprache  umsonst  oder 
zum  Selbstkostenpreis  der  Datenträ¬ 
ger  abgegeben.  In  der  Anleitung 
selbst  wird  dazu  aufgefordert,  Co¬ 
mal  zu  kopieren  und  die  Sprache 
dann  an  seine  Freunde  oder  an  sei¬ 
ne  Schule  weiterzugeben.  In 
Schleswig-Holstein  ist  Comal  be¬ 
reits  an  den  Schulen  eingeführt.  Nie¬ 
dersachsens  Schulen  sollen  bald 
folgen. 

Comal  ist  über  folgende  Bezugs¬ 
quelle  zu  erhalten: 

Fa.  INSTRUTEK 

Christian  Holmsgarde,  8700  Hor- 
sens,  Dänemark 

Ausdrücklich  sei  erwähnt,  daß 
die  64'er  Redaktion  keine  Kopien 
weitergeben  kann.  (rg) 


jne.de 

ine.net 
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leistungsfähiger  und  eleganter  als 


Funktionen,  Prozeduren,  dynamische  Variablen  sowie  Mengenoperationen  sind 
wichtige  Elemente  der  Programmiersprache  UCSD  Pascal.  Sie  werden  in  diesem 
Bericht  beschrieben  und  entsprechenden  Basic- Lösungen  gegenübergestellt. 

Abschließend  werden  sechs  Pascal-Versionen  verglichen. 


PRD6RAM  QUERSUMMEN  ( INPUT, OUTPUT) ; 

VAR  check „ resul tat  :  INTEGER; 

FUNCTION  QUERSUMME  <x  :  INTEGER)  : INTEGER;  FORWARD; 


PROCEDURE  EINGABE; 

BEGIN 

PAGE  (OUTPUT)  ; 

WRITELN;  WRITELN;  WRITELN; 

WRITELN  ('BITTE  GEBEN  SIE  EINE  GANZE  ZAHL  EIN,7); 
WRITELN  ('VON  DER  SIE  DIE  QUERSUMME  WISSEN'); 
WRITELN  ('WOLLEN.  MIT  707  KOENNEN  SIE  AUFHOEREN' ) ; 
WRITELN; 

READLN  (check); 

resul tat  :=  QUERSUMME  (check); 

END;  (*  EINGABE  *) 


EU MQ I IQN  QUERSUMME; 

VAR  temp  ;  INTEGER; 

BEGIN 

x  ;=  ABS  (;;);  temp  :=  0; 

IF  x  <  10 

JHEN  QUERSUMME  :=  x; 

ELSE  REPEAT 

temp  :=  x  MOD  10  +  temp; 

x  :=  x  DI  V  IO; 

UNIIL  :<  <=  0; 

QUERSUMME  :=  temp; 


Listing  10.  Dank  der  Forward-Deklaration 
kann  die  Funktion  Quersumme  aufge¬ 
rufen  werden,  ohne  bereits  deklariert 
zu  sein. 


END; 


(*  DER  QUERSUMME  *) 


BEGIN  (*  DES  HAUPTPROGRAMMES  *) 

QUERSUMME  : =  1; 

REPEAJ 

EINGABE; 

WRITELN  ('QUERSUMME:  '„resul tat); 
UNIIL  QUERSUMME  (check)  =  0 
END.  (*  DES  HAUPTPROGRAMMES  *) 


Listing  10  zeigt  die  Verwendung 
von  Funktionen  »Forward«- 
Deklaration,  neue  Statements 
und  den  Funktionsaufruf.  Zuerst  nun 
die  Statements: 

»DIV«  und  »MOD«  dürften  zum  Teil 
sicher  schon  bekannt  sein,  dennoch 
zur  Erinnerung:  »MOD  x«  ergibt  den 
Rest  der  Division  einer  Zahl  durch 
»x«,  »DIV  x«  hingegen  den  ganzzahli¬ 
gen  Anteil  des  Quotienten. 

Kurz:  345  MOD  7  =  2  und  345  DIV 
7  =  49; 

Mit  der  »Forward-Deklaration« 
existiert  nun  die  notwendige  Mög¬ 
lichkeit,  eine  Prozedur  oder  eine 
Funktion  zu  deklarieren  ohne  sie  zu 
definieren.  Stellen  Sie  sich  vor,  Sie 
hätten  zwei  Prozeduren  PI  und  P2. 
Sie  beginnen  mit  der  Deklaration 
der  Prozedur  PI  und  bemerken, 
daß  PI  intern  P2  aufruft.  Nun  darf 
man  bekanntlich  nichts  in  einer  De¬ 
klaration  verwenden,  was  nicht 
schon  vorher  deklariert  worden  ist. 
Nun,  werden  Sie  denken,  das  ist 
kein  Problem,  ich  deklariere  eben 
zuerst  P2.  Jetzt  stellen  Sie  aber  fest, 
daß  P2  ihrerseits  PI  aufruft.  Was  ma¬ 
chen  Sie  nun?  Für  diesen  Fall  gibt  es 
die  »Forward»-Deklaration.  Sie  er¬ 
laubt  es,  wenigstens  einmal  den  Na¬ 
men  der  Prozedur  oder  Funktion  so¬ 
wie  deren  formale  Parameter  zu  de¬ 
klarieren,  natürlich  muß  dann  spä¬ 
ter  die  Definition  nachgeholt  wer¬ 
den,  aber  dann  ohne  die  formalen 
Parameter.  Wie  das  aussehen  kann, 
steht  im  obigen  Beispielprogramm. 

Zur  Funktion:  Da  die  Funktion  ei¬ 
nen  Wert  ausgibt,  kann  man  ihr  auch 
einen  Wert  zuweisen.  Das  sieht  man 
am  Beginn  des  Hauptprogrammes. 
In  der  Funktion  selbst  muß  man  dem 
»Namen«  der  Funktion  den  Wert  zu¬ 
weisen,  der  in  ihr  bereitgestellt  wur¬ 
de.  Damit  hat  nun  die  Funktion  einen 
berechneten  Übergabewert,  mit 
welchem  sie  zurückkommt.  Im  Bei¬ 
spiel  sind  das  die  Zuweisungen: 
»QUERSUMME  :=  x«  und  »QUER¬ 
SUMME  :=temp«. 

44 


Mit  der  Funktion  kann  man  sehr 
einfach  rekursive  Strukturen  er¬ 
schaffen.  Eine  rekursive  Funktion  ist 
einfach  gesagt  eine  Funktion,  die 
sich  selbst  aufruft,  die  sich  selbst 
enthält.  Man  kann  durch  derartige 
Programmierung  sehr  viel  an  Spei¬ 
cherplatz  sparen  oder  auch  unver¬ 
nünftig  verschleudern,  sie  kann 
sehr  schnell  und  effizient  sein  oder 
auch  langsam  und  ineffizient.  Rekur¬ 
sionen  sind  aber  im  allgemeinen 
»stackbelastend«.  Wenn  Sie  sich  das 


nächste  Beispiel  genau  anschauen, 
werden  Sie  herausfinden  weshalb. 
Die  Funktion  soll  die  sogenannten 
Fibboconacci-Zahlen  ausgeben.  Sie 
werden  nach  folgender  Rekursions¬ 
formel  berechnet: 

x(n  + 1)  :  =  x(n)  +  x(n-l)  wobei  x(0)  = 
x(l)  =  1  und  n  =  >  1 

Im  voraus  sei  gesagt,  daß  diese 
Funktion  sehr  ineffizient  ist.  Viel¬ 
leicht  merken  Sie  schon  beim  ersten 
Durchlesen  (Listing  11)  weshalb. 
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FUNCTION  FI BEÜCÜ  (n  : INTEGER)  : INTEGER; 
BE  G  IN 
IF  n 


Listing  11.  Rekursive  Funktion 


1  Ih)EN  FIBBOCO  1 

ELSE  FIBBOCO  :=  FIBBOCO  (n-1) 


+  FIBBOCO  (n-2) 


END; 


Diese  kleine  rekursive  Funktion 
berechnet  also  nach  der  Vorschrift 
ein  beliebiges  »x  (n  (>  1))«  bei  Über¬ 
gabe  von  »n«.  Versuchen  Sie  doch 
einmal,  den  Verlauf  für  die  Zahl  »x 
(5)«  nachzuvollziehen.  Sie  merken, 
daß  sehr  viele  Aufrufe  nötig  sind,  bis 
sich  die  Funktion  nicht  mehr  selbst 
aufruft.  Für  den  Fall,  wo  »n  =  5«  ist, 
sind  15  Aufrufe  nötig.  Das  braucht 
Zeit  und  belastet  eben  den  Stapel. 
Hier  beträgt  die  maximale  Rekur¬ 
sionstiefe  4.  Ein  weiteres  schönes 
Beispiel  für  die  Rekursion  wäre  die 
Lösung  des  Problems  von  Hanoi.  Ich 
möchte  sie  hier  nicht  zeigen,  der  in¬ 
teressierte  Leser  findet  sie  in  fast  al¬ 
len  Büchern  über  strukturiertes  Pro¬ 
grammieren.  Sie  ist  zwar  sehr  ele¬ 
gant,  verbraucht  aber  sehr  viel 
Speicherplatz  und  belastet  den  Sta¬ 
pel  recht  stark. 


Basic  ohne  Mengen 


Eine  weitere  sehr  mächtige  Grup¬ 
pe  von  Statements  sind  diejenigen, 
welche  sich  mit  Mengen  beschäfti¬ 
gen.  Solche  Befehle  sind  dem  Basic 
gänzlich  unbekannt. 

Angenommen,  Sie  wollen  in  ei¬ 
nem  Programm  nur  eine  bestimmte 
Eingabe  erlauben,  sagen  wir  alle 
Zahlen  sowie  die  vier  Operatoren 
» +  so  müssen  Sie  in  Basic  etwa 
das  Programm  in  Listing  12  pro¬ 
grammieren. 

In  der  Schleife  das  Pascal-Pro¬ 
gramm  wird  getestet,  ob  die  Einga¬ 
be  der  Bedingung  genügt.  Ist  doch 
viel  eleganter,  nicht  wahr?  Nun  bie¬ 
tet  Pascal  nicht  nur  solche  einfachen 
Zugehörigkeitstests,  sondern  umfas¬ 
sende  Mengenoperationen.  Einige 
Beispiele  dazu: 


färbe 

=  (ROT, BLAU, 
GRÜN, GELB. 
BRAUN, WEIß, 
SCHWARZ); 

tag 

=  (MON.DIE, 

MIT,DON,FRE- 

,SAM,SON); 

farbton 

=  SET  OF 
färbe; 

besetzt 

=  SET  OF  tag; 

zahlen 

=  SET  OF 

1..500; 

Zeichen 

=  SET  OF 
char; 

buchstaben 

=  SET  OF 

»A«..»Z«; 

Ein  solches  Set  besteht  jeweils  aus 
der  Potenzmenge  aller  zugehörigen 
Objekte.  Sein  Speicherbedarf  kann 
unter  Umständen  immens  sein.  Man 
kann  nun  auf  diesen  Mengen  alle 
Mengenoperationen  durchführen: 
Vereinigungs-( + ),  Schmtt-(*)  und  Dif¬ 
ferenzmenge  (-),  Mengengleichheit 
(=)  und  -Ungleichheit  (<  >,  Teil- 
(<  =)  und  Obermengen  (=  >)  und 
Zugehörigkeiten  (IN). 

Sie  sehen,  man  kann  sehr  univer¬ 
sell  mit  Mengen  hantieren  (Listing 
13).  Es  gibt  dafür  unzählige  Anwen¬ 
dungsgebiete.  Ihnen  fallen  sicher 
mehr  ein.  Ein  kleiner  Seitenblick  auf 
Basic  zeigt,  daß  solche  Mengenope¬ 
rationen  dort  überhaupt  nicht  unter¬ 
stützt  werden. 


Vielseitige  Records 


Ein  Array  ist  ja  bekanntlich  eine  An¬ 
zahl  Variablen,  die  denselben  Na¬ 
men  (identifier)  besitzen.  Man  unter¬ 
scheidet  die  einzelnen  Elemente 
dadurch,  daß  man  sie  indiziert. 
Aber  einen  großen  Nachteü  haben 
Arrays:  Alle  Elemente  müssen  von 
demselben  Typ  sein,  das  heißt  man 
kann  nicht  in  ein  und  demselben  Ar¬ 
ray  Strings,  Reals  und  Booleans  zu¬ 
gleich  haben.  Nun,  das  ist  ja  nicht 
weiter  schlimm,  man  nimmt  eben 
mehrere  Arrays.  Stellen  Sie  sich 
aber  vor,  Sie  möchten  eine  einfache 
Adreßverwaltung  hersteilen  und  die 
einzelnen  Elemente  so  einfach  an¬ 
sprechen  wie  die  eines  Arrays.  Für 
jede  Adresse  brauchen  Sie  aber 
mehrere  Felder,  zum  Beispiel  für 
Namen,  Wohnort,  Postleitzahl  etc. 
Wollen  Sie  noch  irgendein  Feld  in 
der  Adresse  haben,  welches  sich 
für  Berechnungen  verwenden  läßt, 
so  haben  Sie  schon  zwei  Typen  in 
der  Adresse,  nämlich  Felder  der  Ty¬ 
pen  »ARRAY  OF  CHAR«  oder,  wenn 
vorhanden,  »STRING«  und,  für  Rech¬ 
nungen,  »REAL«  oder  »INTEGER«. 
Aufgrund  dieser  Betrachtung  fällt 


Ich  komme  nun  zu  einem  Merk¬ 
mal,  das  Wirth  von  Cobol  übernom¬ 
men  hat,  welcher  aber  typisch  für 
Pascal  ist.  Es  sind  dies  die  Records. 
Schön,  aber  was  ist  denn  ein  Re¬ 
cord? 

Am  besten  ist  es,  wenn  man  einen 
Record  mit  einem  Array  vergleicht. 

PR06RAM  MENGEN  < INPUT, OUTPUT) : 

TYPE  färbe  =  (ROT, BLAU. GRUEN. GELB 
tag  =  (MON.DIE, MIT, DON, FRE 
farbton  =  SET  OF  färbe; 
besetzt  =  SEJ  OF  tag; 

zahlen  =  SEJ  OF  1..500; 
Zeichen  =  SET  QF  char; 
buchstaben  =  SET  OF  ’A’..’Z’: 

VAR  mengel , menge2  :  farbton; 

wochel , woche2  :  besetzt; 

antwort  :  besetzt; 


In  p*scaI  lst 
^  ^  alJe= 

If'.vo*  Typ 


(c) . 

‘  i*  c%: 


VI  ei 


*  ♦  v  .  .  *  0>  ,  1  *  TF 

Ü  hier  P0LGr 

fls  Eitere  r( 

.BRAUN, WEISS, SCHWARZ) ; 
,SAM,SON) ; 


Listing  13.  Umgang  mit  Mengen, 
Aufzählungs-  und  Ausschnittyp 


BEGIN 

mengel  ;=  (SCHWARZ, ROT, GRUEN, BLAU) ; 
menge2  :=  (SCHWARZ. GELB, BRAUN, BLAU, WEISS, ROT) ; 
wochel  :=  (MIT, FRE, SAM) ; 
woche2  :=  <MON, MIT, DON, FRE, SAM) ; 

WRITELN  ( ’ ZUERST  DIE  VEREINIGUNGSMENGE:'); 

WRITELN  (mengel  +  menge2) ; 

WRITELN; 

WRITELN  <’ JETZT  DIE  SCHNITTMENGE:'); 

WRITELN  (mengel  *  menge2> ; 

WRITELN; 

WRITELN  ('NUN  DIE  DIFFERENZMENGE: ' ) ; 

WRITELN  (mengel  -  menge2) ; 

WRITELN;  WRITELN; 

WRITELN  ('WANN  KOENNEN  SIE  KOMMEN?’); 

READLN  (antwort); 

WRITELN; 

I_F  antwort  <=  wocheZ 

THEN  WRITELN  ('WIR  HABEN  IMMER  ZEIT  FUER  SIE.’); 

IF  (antwort  =>  woche2)  AND  (’DIE’  IN  antwort) 

IHEN  BEGIN 

WRITELN  ('DIENSTAGS  IST  IMMER  GESCHLOSSEN.  ABER’); 

WRITELN  <’ SONST  KOENNEN  SIE  IMMER  KOMMEN.’); 

END; 

IF  antwort  =>  wochel 

THEN  WRITELN  (’SIE  KOENNEN  AUF  JEDEN  FALL  IN  DER  1 . WOCHE  KOMMEN.’); 

END. 
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ein  Array  schon  aus.  Als  »Ersatz«  da¬ 
für  bietet  Pascal  nun  den  Record.  In 
ihm  kann  man  nun  beliebige  Felder 
der  verschiedensten  Typen  unter¬ 
bringen.  Die  Records  können  nun  so 
leicht  angesprochen  werden,  wie 
die  Elemente  eines  Arrays. 

Ein  Record  wird  im  Typendekla¬ 
rationsteil  deklariert.  Eine  Vorbe¬ 
merkung  sei  erlaubt:  Alphanumeri¬ 
sche  Eingaben  kann  man  im  UCSD- 
Pascal  als  zum  Typen  »STRING«  ge¬ 
hörig  deklarieren,  in  Standardpas- 


STRING  (x)  erzeugt  Platz  für  einen 
String  der  Länge  »x«.  Ich  habe  im 
nächsten  Beispiel  (Listing  14)  die  De¬ 
klaration  für  eine  Adreßdatei  von 
100  Adressen  erstellt.  Mit  einem  In¬ 
dex  »i«  habe  ich  nun  Zugriff  auf  alle 
100  Adressen. 

Man  könnte  dies  mit  dem  State¬ 
ment  »WITH«  viel  eleganter  lösen, 
aber  dieses  Statement  ist  bis  jetzt  in 
keiner  einzigen  Pascal-Version  für 
den  Commodore  64  implementiert. 


Im  Record  sind  deshalb  nur  Fel¬ 
der  vom  Typ  »STRING«  benützt  wor¬ 
den,  weil  man  mit  ihnen  leicht  eine 
Eingaberoutine  programmieren 
kann,  wie  ich  es  oben  getan  habe. 
Für  verschiedene  Typen,  die  natür¬ 
lich  ihrerseits  auch  wieder  Records 
sein  können,  muß  man  mehrere  »RE- 
ADLN«-Routinen  für  verschiedene 
Typen  einführen  oder  gegebenen¬ 
falls  eine  »STRING  to  INTEGER«- 
Konversion  durchführen. 


cal  muß  man  sie  als  »PACKED  AR¬ 
RAY  OF  CHAR«  deklarieren.  Beim 
Array  kann  man  natürlich  die  Länge 
bestimmen,  aber  das  ist  bei  Strmgs 
auch  möglich  und  zwar  folgender¬ 
maßen: 


PR06RAM  DATEI  ( INPUT, OUTPUT) ; 

IYPE  maske  =  RECORD 

VORNAME  :  STR I NGC 253: 
NACHNAME  :  STR I NGC 25 3; 
STRASSE  :  QTRINGC253; 
NUMMER  :  STRINGC41; 
PLZ  :  STRINGC63; 

WOHNORT  :  STR I NGC 25 3; 
TELEFON  :  STRINGC 143 ; 
SATZNR  :  0. . 100 
END; 

fei  der  =  (VORNAME, NACHNAME, STRASSE 
VAR  adresse  :  ARRAY  CO. . 1003  OE  maske; 


Ens**— * 


dNPUT,  OUTPUT.  ADRESSE)-, 

g*"  °£!U  -  BSapgIEHE  OBEN  »> 

t  =  FILE  OF  maske: 

B 

ÜfUTE  Udr~«>l  EIN  FILE  ZUM  SCHOBEN 

VI  n t FSE  EXISTIERT,  wird 


END. 


, NUMMER, PLZ, WOHNORT, TELEFON) ; 


Mit  dieser 

Eingaberoutine  kann  man  nun  alle 
100  Adressen  eingeben,  wenn  man 
will.  Nun  haben  wir  also  schon  eine 


i  :  felder; 
einqabe  :  STRING; 
c  ;  CHAR; 
j  ;  INTEGER; 

PROCEDURE  BILDSCHIRM; 
BEGI N 


einfache  Adreßdatei  aufgebaut. 
Das  sollte  man  einmal  in  Basic  versu¬ 
chen,  wobei  das  Programm  aber 
vergleichbar  viele  Zeüen  haben 
sollte. 


WRITELN  ('BITTE'); 

CASE  i  OF 

VORNAME  ;  WRITE  ('IHREN  VORNAMEN  ;’); 
NACHNAME;  WRITE  ('IHREN  NACHNAMEN;'); 
STRASSE  ;  WRITE  ('DIE  STRASSE  ;’); 
NUMMER  :  WRITE  ('DIE  HAUSNUMMER 
PLZ  :  WRITE  ('DIE  POSTLEIZAHL: ') ; 

WOHNORT  ;  WRITE  ('IHREN  WOHNORT  :’); 
TELEFON  :  WRITE  ('IHRE  TELEFONNUMMER:’) 

SÜD 


PROCEDURE  ZUWEISUNG; 

BEGIN 

CASE  i  OF 

VORNAME  :  adresseC j 3 . VORNAME  :=  eingabe; 
NACHNAME:  adresseC j 3 . NACHNAME; =  eingabe; 
STRASSE  ;  adresseC j 3 . STRASSE  :=  eingabe; 
NUMMER  :  adresseC j 3 . NUMMER  :=  eingabe; 
PLZ  :  adresseC j 3. PLZ  :=  eingabe: 

WOHNORT  :  adresseC j 3 . WOHNORT  :=  eingabe; 
TELEFON  :  adresseC j 3 ■ TELEFON  ;=  eingabe 
END 
END; 


Listing  14. 

Ein  Adreßsatz  wird  definiert 
und  Adressen  eingegeben 


Eine  Routine  zur  Ausgabe  der 
Adressen  ist  nach  dem  Studium  des 
obigen  Beispiels  leicht  erstellbar. 
Mit  Angabe  des  entsprechenden  In¬ 
dexes  hat  man  nun  Zugriff  auf  alle 
Datensätze.  Nun,  was  natürlich  noch 
fehlt,  ist  die  Abspeicherung  der  Da¬ 
tensätze  auf  irgendeinem  externen 
Massenspeicher.  Das  ist  in  Pascal 
sehr  einfach,  ist  aber  mit  zwei  Ein¬ 
schränkungen  behaftet.  Die  erste 
ist,  daß  man  (in  einfacher  Weise)  nur 
sequentiell  abspeichern  und  lesen 
kann,  die  zweite,  daß  man  ein  File 
ausdrücklich  als  extern  deklarieren 
muß,  wenn  man  nicht  will,  daß  es  mit 
Beendigung  des  Programmes  ver¬ 
schwindet  (diese  Tatsache  kann 


BE6I.N 

j  :=  O; 

REPEAJ 

PAGE  (OUTPUT); 

FOR  i  :=  VORNAME  TO  TELEFON  DO 
BEGIN 
REPEAI 

BILDSCHIRM; 

READLN  (eingabe); 
ZUWEISUNG; 

adresseC j]. SATZNR  :=  j; 


man  benützen,  wenn  man  nur  Zwi¬ 
schenwerte  für  zeitlich  beschränk¬ 
ten  Gebrauch  extern  abspeichern 
will).  Die  Deklaration  und  Eröffnung 
eines  externen  Files  geschieht  wie 
im  Listing  15. 

Hier  gleich  noch  ein  Wort  zu  »IN¬ 
PUT«  und  »OUTPUT«.  Hier  wird  klar, 


WRITELN  ('SIND  ALLE  ANGABEN  KORREKT?  J/N’ > ; 
READ  (c); 

UNUL  c  =  ’J' 

END? 

WRITELN  ('NOCH  EINE  EINGABE?’); 

READ  <c ) ; 

j  :=  j  +  1; 

UNJIL  (c  <>  ’J’)  QR  (j  >  100) 

END- 


was  sie  darstellen:  Es  sind  Dateien. 
»INPUT«  ist  die  Standard-Eingabe¬ 
datei  (meistens  die  Tastatur)  und 
»OUTPUT«  die  Standard-Ausgabe¬ 
datei  (meistens  der  Bildschirm). 

Anders  als  in  Basic  ist  aber  das 
Beschreiben  des  Files  nicht  so  ohne 


*> 

*> 

*> 

*> 
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weiteres  möglich.  Jedes  zu  schrei¬ 
bende  Element  muß  vorher  in  ein 
sogenanntes  Dateifenster  gebracht 
werden,  denn  nur  dieses  Fenster 
kann  auf  das  File  geschrieben  wer¬ 
den.  Das  Dateifenster  hat  densel¬ 
ben  Namen  wie  die  dazugehörige 
Datei,  man  hängt  ihm  nur  noch  ein  >F« 
hinten  an.  Die  Standardprozedur, 
die  nun  das  Dateifenster  im  File  ab¬ 
legt,  heißt  »PUT  (dateifensterna- 
me)«.  Das  Fenster  wird  geschrieben 
und  ist  danach  unbestimmt.  Nach¬ 
dem  man  also  das  Fenster  belegt  hat 
(hier  also  das  Fenster  »adresse'«), 
kann  man  es  mit  »PUT  (adresse)«  ms 
File  schreiben.  Aber  Vorsicht:  Man 
muß  noch  wissen,  ob  man  an  dieser 
Stelle  überhaupt  schreiben  darf. 
Deshlab  sollte  man  mit  zum  Beispiel 
»WHILE  EOF  (adresse)  DO  PUT 
(adresse)«  jeweils  testen,  ob  hier 
Platz  frei  ist  oder  nicht  (EOF  =  End 
Of  File).  In  unserem  Beispiel  (Listing 
16)  sähe  dies  so  aus:  Zuerst  die  Zu¬ 
weisung  (hier  einmal  mit  »WITH«, 
vergleiche  oben),  dann  das  Abspei- 
chem: 

Damit  hat  man  nun  also  einen  Re¬ 
cord  abgespeichert.  Das  Zurückho¬ 
len  funktioniert  ähnlich.  Nehmen  wir 
an,  wir  hätten  mehrere  Records  ab¬ 
gespeichert,  so  befinden  wir  uns 
längst  nicht  mehr  am  Anfang  des  Fi¬ 
les.  Dorthin  müssen  wir  aber,  um  er¬ 
folgreich  einiesen  zu  können.  Die 
Standardprozedur,  die  uns  an  den 
Anfang  bringt  und  das  File  zum  Le¬ 
sen  eröffnet,  heißt  »RESET  (dateifen- 
stername)«.  Sie  hat  auch  dafür  ge¬ 
sorgt,  daß  bereits  das  erste  Element 
des  Files  im  Dateifenster  »adresse''« 
bereitsteht.  Analog  zum  Beispiel 
oben  verhält  sich  die  Belegung  ei¬ 
nes  Records  mit  den  Daten  des  Fen¬ 
sters.  Dazu  gibt  es  das  Gegenstück 
zu  »PUT«,  nämlich  die  Standardpro¬ 
zedur  »GET  (dateifenstemame)«. 
Damit  man  auch  hier  merkt,  wann 
man  aufhören  soll  zu  lesen,  sollte 
man  mit  dem  Statement  »WHILE 
NOT  EOF  (adresse)  DO  GET  (adres¬ 
se)«  prüfen,  ob  das  Ende  des  Files 
schon  erreicht  ist  oder  nicht.  Sie  se¬ 
hen,  mit  dem  Record  läßt  sich  vieles 
sehr  vereinfachen,  wo  es  um  große, 
verschiedenartige  Datenmengen 
geht. 


Pascal:  Auch  dynamisch 

Ziemlich  am  Anfang  wurde  festge¬ 
stellt,  daß  Pascal  eine  statische  Spei¬ 
cherverwaltung  besitzt.  Das  stimmt 
nur  bedingt.  Es  gibt  in  Pascal  dyna¬ 
mische  Speicherverwaltung,  die  so¬ 
gar  dynamischer  ist,  als  diejenige  in 
Basic.  In  Basic  ist  es  bekannterma- 
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ßen  nicht  erlaubt,  ein  Feld  mit  »DIM« 
ein  zweites  Mal  zu  dimensionieren. 

BEGIN 

WITH  adresse'-  DO 
BEGIN 

VORNAME  :=  adresseC j 3 . VORNAME: 

NACHNAME  : =  adr  esse  C  j  3 . NACHNAME ; 

STRASSE  : =  adresse C  j  3 . STRASSE i 

NUMMER  :=  adresse C j 3 . NUMMER; 

PLZ  :=  adresseC j 3. PLZ: 

WOHNORT  :=  adresseC j 3 . WOHNORT; 

TELEFON  :=  adresseC j 3 . TELEFON 

ENB? 

IE  EOF  IfcjEN  PUT  (adresse) 

ELSE  WRITELN  ('BESETZT  !'); 

END; 

Listing  16.  Mit  der  With-Anweisung  läßt  sich  die 
Dateneingabe  in  Listing  14  viel  eleganter  lösen 

In  Pascal  kann  man  dies  erreichen, 
man  muß  nur  anstelle  der  Arrays 
»Dynamische  Variablen«  verwen¬ 
den.  Man  überläßt  damit  dem  Com¬ 
puter  die  Verwaltung  des  Speicher¬ 
platzes  jeder  einzelnen  Variablen, 
die  dafür  überall  im  Speicher  ver¬ 
teilt  sein  können,  zum  Beispiel  Varia¬ 
ble  »a«  bei  3508,  »b«  bei  26876  etc. 
Anstelle  von  Indizes  benützt  man 
dann  eben  sogenannte  »Zeiger« 
(pointers).  Der  Computer  verwaltet 
alle  diese  Zeiger  selbst,  man  kann 
die  Werte  dieser  Zeiger  somit  nie¬ 
mals  auslesen.  Mit  dieser  Methode 
machen  wir  unsere  Adreßverwal- 
tung  dynamisch.  Das  heißt  man  soll¬ 
te  problemlos  löschen,  sortieren,  än¬ 
dern  und  vor  allem  dr.  eitern  kön¬ 
nen.  Es  ist  leicht  ersichtlich,  daß 
dies  natürlich  mit  solchen  Zeigern 
sehr  einfach  ist,  weil  man  nicht  die 
Datensätze  verschieben,  sondern 
nur  die  Zeiger  ändern  muß.  Eine  Va¬ 
riable  wird  zum  Zeiger,  indem  man 
dem  Typennamen,  auf  den  er  zei¬ 
gen  soll,  ein  »'«  voranstellt.  In  unse¬ 
rem  Beispiel: 


TYPE 

maske 

=  RECORD 
(*  SIEHE 

OBEN  *) 

END; 

maskzeiger 

= "maske: 

VAR 

adrl. adr  2 

:  maskzeiger: 

] 

:  "INTEGER; 

Eine 

Deklaration 

schafft  aber 

noch  keinen  Platz,  da  die  Zeiger  zu¬ 
erst  noch  nicht  definiert  sind.  Um 
nun  wirklich  im  Speicher  Platz  für 
die  dynamische  Variable  zu  bekom¬ 
men,  gibt  es  die  Standardprozedur 
»NEW  (adrl)  sucht  Platz  für  den  dy¬ 
namischen  Record  »maske«,  NEW  (j) 
für  die  dynamische  Variable  »j«. 
Durch 

adrlWORNAME  :=  »PETER«; 
f:=  9; 

werden  dem  ersten  Feld  im  dynam- 
sichen  Record  »adrl«  der  Name  »PE¬ 
TER«  zugewiesen  und  die  dynami¬ 
sche  Variable  »j«  bekommt  via  den 
Zeiger  den  Wert  »9«.  Beachten  Sie 
den  Unterschied: 


»j«  bezeichnet  eine  Zeigervariable 
auf  ein  Objekt  vom  Typ  »INTEGER«, 
»r«  bezeichnet  eine  dynamische  Va¬ 
riable  vom  Typ  »INTEGER«. 

»adrl«  bezeichnet  eine  Zeigervaria- 
ble  auf  ein  Objekt  vom  Typ  »maske«. 
»adrlV  bezeichnet  eine  ganze  dyna¬ 
mische  Variable  vom  Typ  »maske«, 
das  heißt  einen  ganzen  dynami¬ 
schen  Record. 

»adrr.feld«  bezeichnet  ein  Feld  des 
dynamischen  Records,  auf  den 
»adrl«  zeigt. 

Wenn  man  im  Record  ein  Feld  ein¬ 
führt,  das  selbst  ein  Zeiger  ist,  kann 
man  sehr  leicht  verkettete  Listen 
aufbauen  etc.  Speziell  für  diese  An¬ 
wendung  gibt  es  das  Statement 
»NIL«.  Wenn  man  nämlich  einen  Zei¬ 
ger  hat,  der  auf  das  Ende  einer  Liste 
zeigt,  so  darf  er  ja  nichts  mehr  ent¬ 
halten.  Um  diesen  »Nichts«-Zustand 
genau  zu  definieren,  kann  man  ei¬ 
nem  Zeiger  den  Wert  »NIL«  zuwei¬ 
sen.  Die  Verkettung  beginnt  mit  ei¬ 
nem  Zeiger  und  endet  mit  »NIL«. 
Wenn  man  nun  eine  Sortierung  der 
Datensätze  durchführen  will,  so  hat 
man  im  Wesentlichen  »nur«  die  Zei¬ 
ger  neu  zu  berechnen,  damit  die 
Verkettung  gemäß  den  Kriterien 
richtig  verläuft.  Es  lassen  sich  so  alle 
Arten  von  Datenstrukturen  verwirk¬ 
lichen  zum  Beispiel  Baum-  oder 
Sternstrukturen. 

Ich  hoffe,  daß  man  sich  mit  Hilfe 
meiner  Ausführung  einen  kleinen 
Überblick  über  Pascal  verschaffen 
konnte.  Einen  Schnellkurs  über  die 
Programmierung  in  Pascal  ersetzt 
dieser  Artikel  sicher  nicht.  Der  in¬ 
teressierte  Leser  wird  ohnehin 
Fachliteratur  lesen  müssen,  um  alle 
Finessen  von  Pascal  kennenzuler¬ 
nen. 

Sechs  Päscal-Versionen 
im  Vergleich 

Mir  sind  bis  jetzt  sechs  komplette 
Pascalsysteme  bekannt:  Pascal  64, 
Pascal  64  V3.0,  beide  von  Data 
Becker,  das  Pascal  von  Abacus  Soft¬ 
ware,  G-Pascal,  das  KMMM-Pascal 
und  das  Oxford  Pascal.  Darüber 
hinaus  gibt  es  noch  einen  4-pass 
UCSD-Pascal-Compiler,  über  den 
ich  aber  noch  nichts  sagen  kann.  Die 
35  reservierten  Pascalstatements 
(AND,  ARRAY,  BEGIN,  CASE, 
CONST,  DIV,  DO,  DONWTO,  ELSE, 
END,  FILE,  FOR  .FUNKTION,  GO¬ 
TO,  IF,  IN  ,  LABEL,  MOD,  NIL,  NOT, 
OF,  OR,  PACKED,  PROCEDURE, 
PROGRAM,  RECORD,  REPEAT, 
SET,  THEN,  TO,  TYPE,  UNTIL,  VAR, 
WHILE,  WITH)  werden  nur  von  zwei 
Versionen  vollständig  unterstützt. 
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Software 


Im  Pascal  64  fehlen:  FILE  nur  be¬ 
dingt,  GOTO,  IN,  LABEL,  NIL, 
PACKED,  PROGRAM,  RECORD, 
SET,  TYPE  und  WITH. 

Pascal  64  V3.0  enthält  alle 
Standard-Pascalstatements! 

Im  Pascal  von  Abacus  fehlen:  FI¬ 
LE,  GOTO,  IN,  LABEL,  NIL, 
PACKED,  PROGRAM,  RECORD, 
SET  und  WITH. 

Im  G-Pascal  fehlen:  FILE,  GOTO, 
IN,  LABEL,  NIL,  PACKED,  PRO¬ 
GRAM,  RECORD,  SET,  TYPE  und 
WITH. 

Im  KMMM-Pascal  fehlen:  GOTO, 
LABEL,  SET  und  WITH. 

Im  Oxford-Pascal  fehlt:  kein  einzi¬ 
ges  Standard-Pascalstatement! 

Meiner  Meinung  nach  ist  ein  Pro¬ 
gramm  kein  vernünftiges  Pascal, 
wenn  TYPE,  SET  und  besonders  RE¬ 
CORD  fehlen,  denn  WHILE..DO, 
REPEAT..UNTIL,  lokale  Variabein 
etc.  bieten  bekanntlich  schon  Si¬ 
mons  Basic,  welches  dann  auch 
noch  Grafik  und  Sound  recht  gut  un¬ 
terstützt. 

Es  muß  auch  gesagt  werden,  daß 
lange  nicht  alle  Standardprozedu¬ 
ren  implementiert  wurden.  Ich 
möchte  nun  alle  Versionen  kurz  be¬ 
sprechen. 

Pascal  64 

Dieses  Pascal  wird  in  Basic  emu¬ 
liert!  Es  ist  kein  UCSD-Pascal,  das 
heißt,  komplette  Stringbehandlung 
fehlt,  wichtige  Standardprozeduren 
wie  NEW,  EOF,  PAGE,  PUT,  GET, 
PACK,  UNPACK  fehlen.  Es  besitzt 
dagegen  eine  kleine  Grafikunter¬ 
stützung,  Sprites,  zwei  Rechenge¬ 
schwindigkeiten  (INTEGER/REAL), 
PEEK,  POKE  und  SYS.  Die  Compi- 
lierzeit  ist  unerträglich  lang.  Nach 
Aussage  eines  Benutzers  brauchte 
der  Compiler  für  234  Zeüen  Source¬ 
text  zirka  45  Minuten.  Der  Editor  ist, 
weil  es  der  eingebaute  Full-Screen- 
Editor  ist,  natürlich  zeilenorientiert 
und  verlangt  zum  Teil  unsichtbare 
GeSHIFTbte  SPACEs  als  Begrenzer 
von  Zahlen,  was  man  natürlich  oft 
vergißt.  Es  werden  darüber  hinaus 
keine  Editierhilfen  geboten.  Der 
Compiler  ist  nach  dem  Laden  resi¬ 
dent  ab  der  Basiczeile  10000.  Man 
kann  daher  den  Pascalcompiler 
selbst  nicht  mit  dem  Austrocompiler 
oder  Petspeed  verschneitem,  weil 
man  die  Zeile  1  bis  9999  für  das  eige¬ 
ne  Programm  benutzen  muß.  Fehler¬ 
meldungen  nur  wie  in  Basic  (zum 
Beispiel  ERROR  in  20).  Der  P-Code 
ist  nur  zusammen  mit  einem  Lader 
ausführbar.  Das  Handbuch  hat  eini¬ 
ge  Druckfehler  und  Ungenauigkei¬ 
ten. 
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Alle  reservierten  Pascalstate¬ 
ments  sowie  alle  Standardprozedu¬ 
ren  sind  implementiert!  Weiterhin 
Mathematikfunktionen  und  Unter¬ 
stützungen  für  die  Programmierung 
von  Hires-  und  Multicolor-Grafik 
und  Sprites.  Die  Soundprogrammie¬ 
rung  und  der  UCSD-Typ  'STRING', 
der  aber  im  Typendeklarationsteil 
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mit  'PACKED  ARRAY  (x..y)  OF 
CHAR’  definiert  werden  kann,  wer¬ 
den  nicht  unterstützt.  Bis  zu  vierdi¬ 
mensionale  Arrays  und  komplexe 
Parameterübergabe  an  Prozeduren 
und  Funktionen  sind  möglich.  Als 
Anpassung  an  den  Commodore  64 
werden  außerdem  noch  die  relati¬ 
ven  Files  und  ein  bequemeres  Dis¬ 
kettenhandling  geboten.  PEEK,  PO¬ 
KE  sowie  Aufruf  von  Maschinenrou¬ 
tinen  sind  möglich.  Eine  Daten¬ 
schnittstelle  zum  Profimat  ist  einge¬ 
baut.  Als  besonderes  Feature  gibt 
es  die  Interruptprocedure,  die  wäh¬ 
rend  eines  jeden  Interrupts  ausge¬ 
führt  wird,  unabhängig  davon,  ob 
man  sich  noch  im  Pascalprogramm 
oder  wieder  im  Basic  befindet.  Der 
Editor  ist  derselbe  wie  beim  Pascal 
64.  Da  aber  der  O.  .veiler  nicht 
schon  wie  beim  Pascal  64  zur  Erzeu¬ 
gung  der  Sourcefiles  vorhanden 
sein  muß,  kann  man  Basiceditierhil- 
fen  wie  zum  Beispiel  Exbasic  Level 
II  verwenden.  Der  langsame  Com¬ 
piler  liest  und  compiliert  von  bezie¬ 
hungsweise  auf  Diskette.  Nach  er¬ 
folgreicher  Compilierung  muß  ein 
spezielles  Ladeprogramm  eingela¬ 
den  werden,  das  aus  dem  P-Code 
Maschinensprache  und  somit  ein, 
ohne  zusätzliche  Hilfsprogramme, 
ablauffähiges  Pascalprogramm  er¬ 
stellt.  Erscheint  ein  Syntaxfehler,  so 
steigt  der  Compiler  aus  ohne  eme 
konkrete  Angabe  über  Fehlerart 
und  das  Auftreten  des  Fehlers.  Auch 
jetzt  noch  muß  der  Benutzer  dem 
Compiler  unverständlicherweise  ei¬ 
nige  Parameter  »von  Hand«  überge¬ 
ben  wie  schon  beim  Pascal  64.  Ein 
interessantes  Detail  für  alle  Beisitzer 
des  alten  Pascal  64:  Nach  Auskunft 
von  Data  Becker  können  alle  dieje¬ 
nigen,  die  das  alte  Pascal  64  besit¬ 
zen,  dieses  gegen  zirka  50  Mark  auf 
den  Stand  der  neuen  Pascalversion 
Pascal  64  V3.  0  aktualisieren  lassen. 
Das  neue  Pascal  64  V3.  0  soll  übri¬ 
gens  auch  nur  99  Mark  kosten. 


Pascal  von  Abacus 


Dieses  Pascal  wird  in  Basic  emu¬ 
liert!  Abcus-Pascal  ist  kein  UCSD- 
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Pascal:  die  komplette  Stringbehand¬ 
lung  fehlt,  wichtige  Standardproze¬ 
duren  wie  NEW,  EOF,  PAGE,  PUT, 
GET,  PACK,  UNPACK  sowie  Mathe¬ 
matikfunktionen  fehlen  ebenfalls. 
Es  besteht  aus  drei  Teilen:  Editor 
(5,5  KByte),  Compiler  (10  KByte)  und 
Interpreter  (7,25  KByte).  Der  Editor 
arbeitet  zeilenorientiert.  Ein  Pascal¬ 
sourcefile  wird  als  sequentielles  Fi¬ 
le  abgelegt,  das  heißt  es  ist  möglich, 
einen  anderen  Editor  zu  benützen. 
Der  Compiler  bearbeitet  zehn  kurze 
Sourcezeilen  in  25  Sekunden.  Beim 
Auftreten  eines  Fehlers  wird  nur  ein 
Fehlercode  ausgegeben  und  der 
Compiler  steigt  aus.  Man  muß  dann 
zum  Beispiel  den  Editor  selbst  la¬ 
den.  Im  Falle  eines  Fehlers  wird 
man  also  in  keiner  Form  unterstützt. 
Der  P-Code  läuft  nur  mit  Interpreter. 


G-Pascal 


G-Pascal  ist  kein  UCSD-Pascal. 
Die  komplette  Stringbehandlung, 
wichtige  Starndardprozeduren  wie 
NEW,  EOF,  PAGE,  PUT,  GET,  PACK, 
UNPACK,  ORD  sowie  sämtliche 
Mathematikfunktionen,  Type  Real 
(kann  nicht  deklariert  werden)  und 
Boolean  fehlen.  Dafür  bietet  dieses 
Pascal  eine  extrem  umfangreiche 
Sprite-,  Grafik-  und  Soundunterstüt¬ 
zung.  Einiges  mehr  als  zwei  Dutzend 
Statements  bietet  G-Pascal  allein  für 
Grafik,  Sound,  Sprites  (vor  allem  Kol¬ 
lisionen)  und  Timersteuerung.  Es 
besitzt  auch  als  einziges  ein  »GOTO- 
XY«.  Die  Sprites  scheinen  IRQ- 
gesteuert.  Maschinensprache- 
Routinen  können  aufgerufen  wer¬ 
den.  Abfragen  für  Joystick,  Paddies, 
Lightpen  sind  vorhanden.  Bitmani¬ 
pulationen  sind  möglich.  16  KByte 
Maschinensprache  werden  gela¬ 
den,  und  dann  ist  das  Pascal  inklusi¬ 
ve  Compiler  und  Editor  resident. 
Der  Editor  ist  ein  zeilenorientierter 
Line-By-Line  Editor  recht  beachtli¬ 
chen  Komforts,  zum  Beispiel  mit 
Help-Befehl  und  Syntax-Checking 
Part  vor  der  Compilierung.  Fehler¬ 
meldungen  werden  im  englischen 
Klartext  ausgegeben.  Der  Compiler 
ist  sehr  schnell.  Zudem  bietet  es  ei¬ 
nen  Tracer,  Debugger  und  Filer.  Mit 
G-Pascal  läßt  sich  bequem  und 
übersichtlich  arbeiten. 


KMMM-Pascal 


KMMM-Pascal  bietet  komplette 
Stringbehandlungen  sowie  alle  Ma¬ 
thematikfunktionen,  Type  Text  und 
einen  Zufallsgenerator.  Von  allen 
Standardprozeduren  fehlen  nur 
PACK,  UNPACK,  PAGE.  Automati- 
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sehe  Typenkonversion  (String  — 
CHAR)  und  Bitmanipulationen  sind 
möglich,  wie  auch  Bitoperationen 
auf  Integervariablen.  Maschinen¬ 
sprache-Routinen  können  aufgeru¬ 
fen  werden.  PEEK  und  POKE  sind 
auch  möglich.  Das  Programm  be¬ 
steht  aus  drei  Teilen:  Editor  (7,75 
KByte),  Editor/Compiler  (23  KByte), 
Compiler  (18,25  KByte)  und  Transla¬ 
tor  (19,5  KByte). 

KMMM-Pascal  erzeugt  _  echten 
Maschinencode.  Nach  der  Überset¬ 
zung  kann  man  das  Pascal-Pro¬ 
gramm  abspeichern  und  nachher 
wie  ein  normales  Maschinenspro- 
gramm  laden.  Es  blendet  das  Basic- 
ROM  aus,  das  heißt  man  hat  neben 
dem  Compiler  noch  runde  25  KBy¬ 
tes,  für  Pascalprogramme!  Der  Edi¬ 
tor  ist  ein  formatfreier  Full  Screen 
Editor  überdurchschnittlichen  Kom¬ 
forts  (komfortabler  als  der  einge¬ 
baute  Editor),  mit  eingebautem  Syn¬ 
tax  Checking  Part  und  belegten 
Funktionstasten.  Eine  häufig  benö¬ 
tigte  Steuercodesequenz  kann  als 
Macrobefehl  definiert  werden.  Der 
Syntaxchecker  spürt  alle  Syntaxfeh¬ 
ler  auf,  wobei  der  Cursor  die  verur¬ 
sachende  Stelle  markiert  und  eine 
englische  Klartextmeldung  er¬ 
scheint.  Der  Editor  generiert  ein  se¬ 
quentielles  File,  so  daß  man  einen 
anderen  Editor  oder  auch  eine  Text¬ 
verarbeitung  wie  Easyscript  benüt¬ 
zen  kann.  Nach  erfolgreichem  Er¬ 
stellen  des  Sourcefiles  lädt  man  den 


Schnelle  Compiler 


Compiler,  der  bei  Bedarf  ein  ASCII 
—  oder  »PETSCII«-Listing  erstellt, 
während  er  (übrigens  sehr  schnell) 
compiliert.  Der  P-Code  ist  abspei¬ 
cherbar.  Nach  der  Compilierung 
wird  der  Translator  nachgeladen, 
der  nun  den  P-Code  ziemlich 
schnell  in  Maschinencode  über¬ 
setzt.  Nach  dessen  Fertigstellung 
wird  die  Kontrolle  wieder  dem  Basic 
übergeben.  Die  Zeiger  sind  automa¬ 
tisch  so  gesetzt  worden,  daß  man 
das  Programm  sofort  abspeichern 
kann.  KMMM-Pascal  unterstützt  den 
IEEE-Bus  und  erlaubt  die  Verwen¬ 
dung  von  DOS  5.1.  Im  Lieferumfang 
gibt  es  auch  noch  mehr  als  zehn  De¬ 
moprogramme  sowie  ein  70-seitiges 
Manual.  Dieses  Pascal  kann  gegen 
eine  sehr  geringe  Gebühr  dem  je¬ 
weiligen  aktuellen  Stand  angepaßt 
werden,  was  einem  die  Hersteller¬ 
firma  garamert.  Der  Hersteller  gab 
auf  eine  entsprechende  Anfrage 
bekannt,  daß  bis  Ende  1984  das 
KMMM-Pascal  den  Sprachumfang 
eines  Jensen/Wirth-Pascals  besit- 
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zen  soll,  wodurch  es  dann  ein  sowohl 
im  Handling  als  auch  in  bezug  auf 
die  Compilerleistung  sehr  überzeu¬ 
gendes  Pascal  sein  wird.  Von  der 
Firma  kann  man  auch  gegen  etwa  13 
SFr.  eine  Programmbibliothek  der 
schon  bestehenden  Programme  er¬ 
stehen.  Diese  Pascalversion  wird 
von  der  Firma  seit  1983  für  den  Com- 
modore  64  angeboten  und  betreut. 
Alle  Programme,  außer  denjenigen, 
die  sich  mit  'SET'  oder  ’WITH’  be¬ 
fassen,  wurden  unter  KMMM-Pas¬ 
cal  erstellt. 


Oxford  Pascal 


Über  dieses  Pascal  waren  mir  zu 
diesem  Zeitpunkt  erst  diejenigen  In¬ 
formationen  bekannt,  die  man  ei¬ 
nem  englischen,  nicht  allzu  umfang¬ 
reichen  Handbuch  entnehmen 
kann.  Es  unterstützt  alle  35  reser¬ 
vierten  Pascalstatements  und  alle  40 
Pascal-Standardprozeduren,  alle 
.Standardtypen  (außer  'STRING1,  der 
aber  leicht  simuliert  werden  kann, 
siehe  oben)  sowie  Mathematikfunk¬ 
tionen  und  Bitmanipulationen,  auch 
auf  Integern.  Mengenoperationen 
sowie  sogar  Variante  Records(l) 
werden  unterstützt.  Darüber  hinaus 
ist  es  auch  an  die  Fär  ■  ■  xeiten  des 
Commodore  64  angepaßt,  was  be¬ 
deutet,  daß  es  Grafik  und  Sound  un¬ 
terstützt.  Dazu  besitzt  es  sehr  kom¬ 
fortable  Befehle,  welche  zum  Bei¬ 
spiel  in  der  Grafik  Linien  ziehen  be¬ 
ziehungsweise  löschen,  Flächen 
ausfüllen  beziehungsweise  leeren 
und  Punkte  setzen  beziehungsweise 
löschen  oder  prüfen  können.  Für 
den  normalen  Bildschirm  gibt  es  die 
Prozedur  »VDU«,  die  ein  Zeichen  an 
jeder  beliebigen  Stelle  des  Schirms 
ausgibt.  Für  den  Sound  gibt  es  die 
Prozedur  »ENVEL«,  die  die  Hüllkur¬ 
ve  bestimmt,  und  für  Frequenz,  Wel¬ 
lenform  und  Dauer  die  Prozedur 
»VOICE«  sowie  eine  eigene  Proze¬ 
dur  »VOLUME«.  Es  unterstützt  PEEK 
und  POKE  und  erlaubt,  in  Pascal 
Maschinenprogramme  zu  editieren 
und  als  Pascalprozedur  abzuspei- 
cher.  Weitere  Features:  Restore- 
Taste  blockieren,  Zugriff  auf  die  Ti¬ 
me  Of  Day-Clock,  sedezimale 
Zahlenein-  und  -ausgabe,  externe, 
linkbare  Programm-Module,  For¬ 
warddeklarationen,  Übergabepa¬ 
rameter  dürfen  auch  Prozeduren 
und  Funktionen  sein,  Prozeduren 
»PACK«  und  »UNPACK«,  n-dimensio- 
nale  Arrays.  Es  erzeugt  Maschinen¬ 
code.  Es  besitzt  einen  eigenen  Edi¬ 
tor,  der  im  wesentlichen  dem  einge¬ 
bauten  Full-Screen-Editor  ent¬ 
spricht,  der  aber  um  so  nützliche  Hil¬ 
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fen  wie  AUTO,  DISK,  NUMBER, 
FIND  CHANGE,  DELETE,  PUT, 
GET,  HEX,  DECIMAL,  DUMP,  EX, 
LINK,  COMPILE  und  einige  Basic- 
befehle  erweitert  ist.  Es  gibt  zwei 
Compiler.  Der  eine  ist  resident  und 
compiliert  und  führt  ein  Programm 
sofort  aus,  was  das  Oxford  Pascal 
vor  allem  für  den  Einsteiger,  neben 
dem  G-Pascal,  sehr  interessant 
macht.  Der  zweite  Compiler  ist  ein 
Diskettencompiler,  das  heißt  erliest 
und  compiliert  von  beziehungswei¬ 
se  auf  Diskette  mit  der  Möglichkeit, 
externe  Programm-Module  einzu- 
binden.  Der  Befehl  »LOCATE«  er¬ 
zeugt  danach  ein  ohne  Hilfsmittel 
ablauffähiges  Programm.  Fehler¬ 
meldungen  werden  im  englischen 
Klartext  ausgegeben  mit  Angabe 
über  die  ungefähre  Stelle  im  Listing. 

Nur  drei  Versionen 
brauchbar 


Meine  persönlichen  Erfahrungen 
haben  gezeigt,  daß  bis  auf  das 
KMMM-Pascal,  das  Oxford  Pascal 
(soweit  man  ein  Programm  theore¬ 
tisch  beurteüen  kann)  und  dann 
noch  das  Pascal  64  V.3  0  keine  einzi¬ 
ge  der  anderen  Versionen  befriedi¬ 
gen  kann,  So  ist  beispielsweise  der 
erste  Pascal  64  sein  Geld  nicht  wert, 
das  neue  Pascal  64  V3.0  desselben 
hingegen  ist  in  bezug  auf  die  Lei¬ 
stung  des  Compüers  das  krasse  Ge¬ 
genteil  vom  Pascal  64.  Einen  komfor¬ 
tablen  Editor  besitzen  beide  Versio¬ 
nen  nicht,  was  besonders  beim  neu¬ 
en  Pascal  64  V3.0  ein  echtes  Ärger¬ 
nis  darstellt.  Die  Fähigkeiten  des 
neuen  Compilers  wurden  gegen¬ 
über  demjenigen  des  Pascal  64  dra¬ 
stisch  verbesert.  Wer  sich  ein  zwar 
auch  nicht  überzeugendes  aber 
dennoch  in  puncto  Grafik  und  Ge¬ 
schwindigkeit  dem  Pascal  64  über¬ 
legenes  Pascal  zulegen  möchte,  der 
sollte  sich  das  G-Pascal  besorgen. 
Das  Pascal  von  Äbacus  ist  nur  unwe¬ 
sentlich  besser  als  das  Pascal  64, 
denn  es  bietet  eigentlich  nur  ein 
spezielles  Pascalstatement  'TYPE'. 
Von  allen  Versionen  ist  wohl  das  G- 
Pascal  das  bequemste,  weil  es  me- 
nügeesteuert  ist.  Das  Pascal  64  ist 
bei  Laufzeitfehlern  bis  auf  das  G- 
Pascal  am  leichtesten  editierbar. 
Weil  das  G-Pascal  und  das  KMMM- 
Pascal  einen  eingebauten  Syntax 
Checking  Part  besitzen,  sind  sie  bei 
Syntaxfehlern  am  leichtesten  edi¬ 
tierbar.  Bei  allen  Versionen  außer 
dem  KMMM-Pascal,  dem  neuen 
Pascal  64  V3.0  und  dem  Oxford  Pas¬ 
cal  ist  das  Programm  nur  lauffähig, 

Fortsetzung  auf  Seite  163 
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^ 1 ldsch irmformat 
2 5  &  i  c  H <=> r-1  20 


2  g  x  1  g  t~t 


POKE  36864 , 3 
POKE  36865 , 38 


POKE  36867  ,  -40 
POKE  36866 , ±53 


Bild  1.  Bildschirmformat  25  x  20 


Der  Video-Chip  des  VC  20  kann  wesent¬ 
lich  mehr  als  nur  die  Bildschirmfarben 
steuern  und  Musik  machen.  So  läßt  sich 
zum  Beispiel  mit  wenig  Aufwand  das 
Bildschirmformat  ändern  oder  zwischen 
verschiedenen  Bildschirmseiten  umschal¬ 
ten.  Auch  die  Erzeugung  hochauflösender 
Grafik  ist  nicht  so  schwierig,  wie  es 
manchem  Anfänger  scheinen  mag. 


i  ldsch  i  r-  m -f'  o  r~  trist  :  f 


1 ^  e-  i  c  Ki  g  n 
23  3g i ien 


POKE  36864 , 16 
POKE  36365,24 
POKE  36867 , 53 
POKE  36366 , 145 


Bild  2.  Bildschirmformat  17  x  29 


Wie  bei  seinen  »großen  Brü¬ 
dern«  CBM  4032/8032  wird 
die  Bildschirmdarstellung  des 
VC  20  mit  einem  speziellen  Video¬ 
controller  erzeugt.  Das  Betriebssy¬ 
stem  stellt  diesen  Baustein  nach 
dem  Einschalten  auf  das  bekannte 
Format  von  22  Zeichen  bei  23  Zeilen 
ein.  Da  diese  Festlegung  software¬ 
mäßig  erfolgt,  ist  es  in  Grenzen  mög¬ 
lich,  das  Bildschirmformat  nachträg¬ 
lich  durch  POKE-Befehle  zu  ändern. 
Leider  werden  solche  interessanten 
Möglichkeiten  des  VC  20  (und  C  64) 
von  Commodore  nur  durch  die  Be¬ 
fehle  PEEK  und  POKE  unterstützt. 
Deshalb  an  dieser  Stelle  zunächst 
ein  Exkurs  zu  den  Bits  und  Bytes.  Ein 
Byte  setzt  sich  aus  acht  Bits  zusam¬ 
men,  aber  das  wissen  Sie  ja  sicher¬ 
lich  schon.  Um  in  Basic  einzelne  Bits 
anzusprechen,  muß  eme  Bit-Kombi¬ 
nation  zuerst  in  den  entsprechen- 

56  Q3S? 


den  Dezimalwert  ümgerechnet  wer¬ 
den.  Dies  erreicht  man  mit  der  fol¬ 
genden  Beispielrechnung: 

Bit:  7  6  5  4  3  2  1  0 
Wert:  1  0  0  0  0  0  0  1 
=  117*1  +  21 6*0  +  2 1 5*0  + ...  +  2 1 0*1 
oder:  2t7+210 
Das  Ergebnis  aus  217  +  210 
lautet  128  + 1  also  129.  Mit  den  bei¬ 
den  Basic-Befehlen  AND  und  OR 
können  die  Bits  gezielt  verändert 
werden.  Hierzu  ein  Beispiel:  »R= 128 
:  V=1  :  PRINT  R  OR  V«.  In  Bit- 
Schreibweise  sieht  die  Rechnung 
wie  folgt  aus: 

R  :  1  0  0  0  0  000:  128 

V:  00000  001:  1 

E  :  1  0  0  0  0  001=  129 

Falls  ein  Bit  in  R  oder  in  V  (oder  in 
beiden)  gesetzt  ist,  wird  dieses  Bit 
auch  als  »1«  in  das  Ergebnis  über¬ 
nommen.  Umgekehrt  werden  jene 
Bits  zu  Null,  deren  entsprechenden 


Positionen  in  beiden  Variablen  zu¬ 
rückgesetzt  sind. 

Durch  den  OR-Befehl  können  ge¬ 
zielt  Bits  gesetzt  werden.  Im  Bild¬ 
schirmspeicher  bewirkt  das  gesetz¬ 
te  siebte  Bit,  daß  das  Zeichen  inver¬ 
tiert  dargestellt  wird.  Schreiben  Sie 
einmal  ein  Zeichen  links  oben  auf 
den  Bildschirm.  Ermitteln  Sie  nun 
den  »Z  =  PEEK(7680)«  (PEEK(4096) 
beim  erweiterten  VC)  den  entspre¬ 
chenden  Zeichencode.  Durch  Z  =  Z 
OR  128  wird  nun  das  siebente  Bit  ge¬ 
setzt.  POKE  7680, Z  schreibt  den 
Wert  zurück  und  das  Zeichen  er¬ 
scheint  invertiert. 

Das  folgende  kurze  Programm  in¬ 
vertiert  den  gesamten  Bildschirm. 

10  A=7680  :  REM  ODER  4096! 

20  FOR  1  =  0  TO  511  :D  =  PEEK(I+A) 
30  D=D  OR  128  :  POKE  A+I,D  : 
NEXT 
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Bild  4.  Ein  weiteres  Beispiel  für  die  Anwendung  der  neuen  Grafikbefehle 


Cursor-Tasten  wird  die  Anzahl  der 
Zeilen  beziehungsweise  die  Anzahl 
der  Zeichen  pro  Zeile  verändert. 
Auch  hier  können  Sie  durch 
Drücken  der  RETURN-Taste  die  er¬ 
forderlichen  POKE-Befehle  für  die 
letzte  Einstellung  ermitteln. 

Die  Bilder  1  und  2  zeigen  zwei  ge¬ 
änderte  Bildformate  mit  den  dazu¬ 
gehörigen  POKE-Befehlen. 


Bild  3.  Das  Plotten  von  Funktionen  ist  kein  Problem  mit  der  Grafikerweiterung 


Zwischen  verschiedenen 
Bildschirmbereichen 
umschalten 


Rr  >3rturK0»' 


Falls  Sie  die  Zeile  30  durch  »D  =  D 
AND  127:...«  ersetzen,  werden  die 
zuvor  invertierten  Zeichen  wieder 
»normal«  dargestellt.  Durch  die  BIT- 
Schreibweise  wird  dies  anschau¬ 
lich: 

R  :  1  0  0  0  0  0  0  1  :  129) 

V :  0  1  1  1  1  1  1  1  :  127) 

E:0  0  0  0  0  0  0  1=  1 

Alle  BIT-Positionen  von  R  werden 
in  das  Ergebnis  übernommen,  so¬ 
bald  die  entsprechenden  Positionen 
des  Vergleichswertes  auf  »1«  gesetzt 
sind.  Durch  D  AND  127  wird  somit 
das  siebte  Bit  in  D  gelöscht. 

Die  Tabelle  1  zeigt  die  für  unsere 
Zwecke  wichtigsten  Register  des 
Video-Chips  sowie  deren  Funktion. 

Die  folgende  Tabelle  2  verdeut¬ 
licht,  wie  die  Register  verändert 
werden  können,  Mit  dem  PEEK- 
Befehl  wird  der  Inhalt  der  Speicher¬ 
adresse  abgefragt.  Der  AND-Befehl 


löscht  nun  einen  Teilbereich  und  mit 
OR  X  wird  zuletzt  ein  neuer  Wert  an¬ 
geknüpft. 

Außerdem  gibt  die  Tabelle  2  die 
Originalwerte  für  die  Variable  X  an, 
sowie  —  in  Klammem  —  den  zulässi¬ 
gen  Zahlenbereich. 

Die  Adressen  36864/36865  zen¬ 
trieren  die  Bilddarstellung  auf  dem 
Fernsehgerät  oder  Monitor.  Mit  dem 
Basicprogramm  »BILD  ZENTRIE¬ 
REN«  (Listing  1)  können  Sie  dies  te¬ 
sten.  Der  Bildausschnitt  wird  mit 
den  Cursor-Tasten  verschoben. 
Falls  Sie  die  RETURN-Taste 
drücken,  zeigt  das  Programm  die 
notwendigen  POKE-Befehle  für  die 
letzte  Einstellung  und  setzt  den  Bild¬ 
schirm  zuletzt  wieder  in  den  Aus¬ 
gangszustand  zurück. 

Das  Programm  »BILDSCHIRM- 
FORMAT«  (Listing  2)  verändert  die 
Adressen  36866/36867.  Mit  den 


Das  Register  36869  legt  die  Adres¬ 
sen  für  den  Zeichensatz  und  den 
Bildschirmspeicher  fest.  Die  Tabel¬ 
le  2  zeigt  vier  POKE-Befehle  mit  den 
entsprechenden  Bildschirm- 

Startadressen.  Falls  Sie  eine  Ände¬ 
rung  durchführen,  müssen  Sie  dem 
Computer  die  neue  Startadresse  in 
dem  Zeiger  648  mitteilen.  Außer¬ 
dem  müssen  noch  25  weitere  Zeiger 
(MSB  der  Zeilenanfänge)  geändert 
werden.  Durch  SYS  58775  führt  der 
'Computer  die  notwendigen  Berech¬ 
nungen  aus.  Die  POKE-Befehle  in 
die  Adressen  52/53  begrenzen  den 
oberen  Speicherbereich  und  schüt¬ 
zen  so  das  Bild-RAM  vor  dem  Über¬ 
schreiben  durch  Basic-Variablen. 

Die  mit  einem  Doppelkreuz  »#« 
gekennzeichneten  Adressen  gelten, 
falls  die  Bildadresse  zusätzlich  um 
512  Byte  nach  unten  verschoben 
wurde.  Diese  »Feinverschiebung« 


ne.de 
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Tabelle  2.  So  können  die  Register  aus  Tabelle  1  verändert  werden 


D  =  36864  /  X:  (0-127)  /  Orig.  12 


Horizontal-Position 

verschieben. 


POKE  D,  (PEEK(D)  AND  128)  OR  X 
D  =  36865  /  X;  (0-255)  /  Orig.  38: 

POKE  D,X 

D = 36866  /  X:  (0-27)  /  Orig.  150 
POKE  D,(PEEK(D)  AND  128)  OR  X 
POKE  D.PEEKCD)  OR  128  :  oben 
POKE  D.PEEKCD)  AND  127  #  unten 

D  =  36867  /  X:  (0-64)  /  Orig.  174 

POKE  D,(PEEK(D)  AND  129)  OR  (2*X): 

POKE  D,PEEK(D)  OR  1  (ein) 
POKE  D,PEEK(D)  AND  254  (aus) 

D  =  36869  (#  =  >  untere  512  Byte 

POKE  D,240:POKE  52/56/648,30  (#28) 
POKE  D,224:POKE  52/56/648,26  (#24) 
POKE  D,208:POKE  52/56/648,22  (#20) 
POKE  D,192:POKE  52(56/648,18  (#16) 


POKE  D,(PEEK(D)  AND  240)  OR  15 
POKE  D,(PEEK(D)  AND  240)  OR  14 
POKE  D,(PEEK(D)  AND  240)  OR  13 
POKE  D,(PEEK(D)  AND  240)  OR  12 
POKE  D,(PEEK(D)  AND  240)  OR  11 
POKE  D,(PEEK(D)  AND  240)  OR  10 


Beispiel:  POKE  D,PEEK(D),  208  +  14 


Vertikal-Position 
:  verschieben. 

:  Anzahl  Zeichen 

:  pro  Zeile. 

Adresse  des  Bildschirm-RAM 
:  um  512  Byte  verschieben. 

Anzahl  der  Zeilen  ändern. 

:  Einfache  oder  doppelte 

:  Matrix  einstellen. 

Bildschirm-Adresse: 

:  7680  (#7168) 

:  6656  (#6144) 

:  5632  (#5120) 

:  4608  (#4096) 

Zeichensatz-Adresse:  (von-bis) 

7168-8191  (1) 

6144-8181 

5120-7168 

4096-6144 

3072-5120  (2) 

2048-4096  (2) 

(1)  invertierte  Zeichen  vom  ROM 

(2)  mit  3  KByte-Erweiterung 

=  >  Bildschirm-Adresse:  5632-6143 
=  >  Zeichens.  -Adresse:  6144-8191 


erfolgt  durch  das  siebte  Bit  der 
Adresse  36866.  Die  Tabelle  2  zeigt 
die  beiden  POKE-Anweisungen,  mit 
denen  diese  Umschaltung  —  bei¬ 
spielsweise  zwischen  zwei  Text¬ 
oder  Grafikseiten  —  durchgeführt 
wird. 

Das  Programm  »BILD-RAM«  (Li- 
sting  3)  verdeutlicht  dies.  Die  Pro¬ 
grammzeile  11  schützt  den  oberen 
Speicherbereich.  Mit  GOSUB  80 
wird  die  erste  Seite  »vorgeblendet«. 
CHR$(147)  löscht  die  Seite.  Zuletzt 
wird  der  Text  »ERSTE  SEITE«  ge¬ 
druckt.  Die  Zeilen  40  bis  42  wieder¬ 
holen  den  Vorgang  für  die  zweite 
Seite.  Die  Programmzeilen  50  bis  61 
schalten  nun  —  mit  einer  Verzöge¬ 
rung  —  abwechselnd  die  beiden 
Testseiten  ein.  So  schnell  und  flim¬ 
merfrei  kann  dies  kein  anderes 
Commodore-System. 

Falls  Sie  nach  dem  Umschalten 
mit  dem  Register  36866  die  Zeile 
»POKE  648,...:SYS  58775«  weglassen, 
wird  sich  die  Bildanzeige  zwar  än¬ 
dern;  PRINT-Befehle  gelangen  je¬ 
doch  weiterhin  in  die  alte  —  nun  un¬ 
sichtbare  —  Seite. 


Eigene  Zeichen  definieren 


Aus  der  Tabelle  1  kann  man  able¬ 
sen,  daß  nur  die  oberen  vier  Bits  der 
Adresse  36869  das  Bild-RAM  ver¬ 
schieben.  Die  restlichen  Bits  bestim¬ 
men  die  Lage  des  Zeichensatzes  im 
Speicher.  Durch  die  in  der  Tabelle  2 
angegebenen  OR-Verknüpfungen 
kann  der  Zeichensatz  ins  RAM  ge¬ 
legt  werden.  Nur  »OR  15«  stellt  eine 
Ausnahme  dar,  da  hierdurch  die  un¬ 
teren  128  Zeichen  aus  dem  RAM,  die 
oberen  —  invertierten  —  Zeichen 
weiterhin  aus  dem  ROM  geholt  wer¬ 
den.  Diese  Zeichen  erscheinen 
dann  aber  »nichtinvertiert«. 

In  dem  Programm  »PROG.  ZEI¬ 
CHENSATZ«  (Listing  4)  werden  die 


notwendigen  Änderungen  in  der 
Programmzeile  30  vorgenommen. 
Nach  »POKE  36869,240«  lautet  die 
Startadresse  des  Bildschirm-RAMs 
7680.  Der  Wert » + 15«  verschiebt  den 
Zeichensatz  zur  Adresse  7168. 

Im  einzelnen  schreibt  das  Pro¬ 
gramm  den  gesamten  Zeichensatz 
des  VC  20  auf  den  Bildschirm.  Dabei 
werden  die  Zeichen  durch  »POKE 
38400+1,0«  in  der  Farbe  Schwarz  ge¬ 
druckt.  Die  Zeile  30  verändert  dann 
die  Zeiger,  so  daß  die  ersten  128  Zei¬ 
chen  den  zufälligen  Inhalt  des 
Zeichensatz-RAMs  wiedergeben. 
Der  Zeichensatzspeicher  wird  dann 
in  den  folgenden  Zeilen  gesetzt  und 
anschließend  gelöscht.  Zuletzt  wer¬ 


den  noch  die  Originalzeichen  aus 
dem  ROM  in  das  RAM  »gePOKEt«. 
Die  Zeile  55  schaltet  den  program¬ 
mierten  Zeichensatz  wieder.,  ab. 

Falls  Sie  mit  dem  Zeichensatz  ex¬ 
perimentieren  wollen,  brauchen  Sie 
nur  die  letzte  Zeile  wegzulassen.  Al¬ 
le  »ungeshifteten«  Zeichen  können 
dann  verändert  werden.  Zuerst 
müssen  Sie  jedoch  ermitteln,  wohin 
Sie  »POKEn«  müssen.  Schreiben  Sie 
hierzu  das  Zeichen,  das  Sie  ändern 
wollen,  links  oben  auf  den  Bild¬ 
schirm.  Mit  »PRINT  PEEK(7680)« 
kann  dann  der  dazugehörige  Code 
ermittelt  werden.  Der  Wert  muß  nun 
mit  acht  multipliziert  werden,  da  zu 
jedem  Zeichen  acht  Byte  gehören. 
Zuletzt  müssen  Sie  noch  die  Start¬ 
adresse  des  Zeichensatzes  (hier 
7168)  hinzuaddieren.  Für  den  Buch¬ 
staben  »A«  lautet  die  richtige  Adres¬ 
se  7174.  POKEn  Sie  einmal  den  Wert 
129  an  diese  Adresse.  In  Bit-Form 
sieht  das  wie  folgt  aus:  129  gibt 
10000001. 

Genauso  wird  anschließend  die 
erste  Zeile  in  dem  Buchstaben  »A« 
aussehen;  rechts  und  links  außen  je 
ein  Pünktchen.  Verändert  Sie  auch 
einmal  die  nächsten  Adressen  oder 
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Tabelle  1.  Einige  wenig  bekannte,  aber  recht  nützliche  Register  des  VIC-Chips. 

Adresse  / 


BIT: 

7 

6 

5 

4 

3 

2 

1 

0 

36864  = 

— 

HZ 

HZ 

HZ 

HZ 

HZ 

HZ 

HZ  :  Horizontal-Zentrierung 

36865  = 

VZ 

VZ 

VZ 

VZ 

VZ 

VZ 

VZ 

VZ  :  Vertikal-Zentrierung 

36866  = 

BA 

ZE 

ZE 

ZE 

ZE 

ZE 

ZE 

ZE  :  Bildschirm-Adresse 
:  ZEichen  pro  Zeile 

36867  = 

— 

ZL 

ZL 

ZL 

ZL 

ZL 

ZL 

MA  :  ZeiLen-Anzahl 
:  Matrix:  (8*8  /  8*16) 

36869  = 

BA 

BÄ 

BA 

BA 

ZA 

ZA 

ZA 

ZA  :  Bildschirm-Adresse 

:  Zeichensatz-Adresse 

58 
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versuchen  Sie  den  Umlaut  »Ä«  zu  ge¬ 
stalten. 

Nach  der  Theorie  nun  ein  prakti¬ 
sches  Grafikbeispiel.  Das  ab¬ 
schreckend  lange  Basic- 
Ladeprogramm  (Listing  5)  erweitert 
den  Basic-Befehlssatz  des  VC  20  (oh¬ 
ne  Speichererweiterung)  um  sieben 
weitere  Anweisungen  (COPY, 
GNEW,  GON,  GOFF,  PLOT,  TURN 
und  CLEAR).  Beim  Eintippen  sollten 
Sie  jedoch  die  Zeilen  10  bis  32  durch 
das  Programm  »Prüfsumme«  (Listing 
6)  ersetzen.  Nach  RUN  können  Sie 
mit  Hilfe  der  Tabelle  3  überprüfen, 
ob  Sie  die  Daten  fehlerfrei  eingege¬ 
ben  haben.  Die  Prüfsummen  gelten 
jeweils  für  eine  DATA-Zeüe. 

Nachdem  Sie  das  Ladeprogramm 
(Zeile  10  bis  32)  hinzugenommen  ha¬ 
ben,  muß  das  Programm  unbedingt 
abgespeichert  werden.  Nach  RUN 
sucht  das  Programm  die  Zeile  32  (al¬ 
so  nicht  weglassen)  und  überträgt 
die  Daten  ab  dieser  Adresse  in  den 
Speicher.  In  den  Programmzeüen  22 
bis  24  wird  das  Maschinenpro¬ 
gramm  zuletzt  in  den  oberen  RAM- 
Bereich  übertragen  und  durch  die 
folgenden  POKE-Befehle  geschützt. 
Der  NEW-Befehl  löscht  zuletzt  das  — 
ohnehin  zerstörte  —  Programm. 

Mit  SYS  6273  können  die  Befehle 
jetzt  eingeschaltet  werden.  Bei  2173 
BYTES  FREE  nähert  man  sich  natür¬ 
lich  gefährlich  dem  »Sinclair- 
Syndrom«. 

Nach  dem  Einschalten  fällt  zuerst 
ein  neuer  Cursor  auf.  In  der  inver¬ 
tierten  Blinkphase  des  Cursors  wird 
ein  »graues«  Viereck  (COMMO- 
DORE-SHIFT » +«)  gedruckt.  Dies  ist 
notwendig,  da  der  Zeichensatz  kei¬ 
ne  invertierten  Zeichen  mehr  um¬ 
faßt  und  deshalb  der  Cursor  nicht 
mehr  blinken  würde.  Durch  das 
Grafikprogramm  werden  alle  64 
umgeshifteten  Zeichen  program¬ 
mierbar.  Der  Zeichensatzspeicher 
beginnt  —  wie  in  dem  kleinen  Text¬ 
programm  »PROG.  ZEICHENSATZ« 
(Listing  4)  —  an  der  Adresse  7168. 
Mit  dem  Befehl  »COPY«  wird  der 
Originalzeichensatz  aus  dem  ROM 
in  diesen  Bereich  kopiert. 

Der  Befehl  »GON«  schaltet  nun 
den  Grafik-Modus  ein.  Da  zuvor  der 
Originalzeichensatz  ins  RAM  kopiert 
wurde,  werden  sich  die  ersten  64 
Zeichen  nicht  verändern.  Falls  in¬ 
vertierte  Zeichen  auf  dem  Büd- 
schirm  stehen,  werden  diese  jetzt 
nichtinvertiert  wiedergegeben.  Nur 


bei  den  geshifteten  Zeichen  (außer 
den  invertierten)  gibt  es  einen  Total¬ 
ausfall,  aber  bei  3,5  KByte  Speicher¬ 
raum  muß  man  schon  gewisse  Män¬ 
gel  in  Kauf  nehmen.  Mit  »GOFF« 
wird  der  Zeichensatz  wieder  ins 
ROM  verlegt,  so  daß  alle  Zeichen 
sichtbar  werden. 

Die  drei  Befehle  PLOT/CLEAR/ 
TURN  setzen,  löschen  oder  invertie¬ 
ren  einen  Bildpunkt.  Natürlich  muß 
hinter  den  Befehlen  eine  X-  und  Y- 
Koordinate  angegeben  werden. 
Beispielsweise  »PLOT  176,1«;  aller¬ 
dings  führt  diese  Eingabe  zu  der 
Fehlermeldung  X-ERROR  (IN.,.),  da 
der  zulässige  Wertebereich  für  die 
X-Koordinate  0  bis  175  (22  Zeichen  * 
8  —  1),  und  für  die  Y-Koordinate  0  bis 
183  (23  Zeichen  *  8  —  1)  beträgt. 

Der  Wertebereich  für  die  Koordi¬ 
natenangabe  wird  durch  den  letzten 
Befehl  »GNEW«  ermittelt,  da  das 
Bildschirmformat  —  wie  zuvor  be¬ 
schrieben  —  per  Software  geändert 
werden  kann.  Bei  einer  Einstellung 
mit  beispielsweise  25  Zeichen  pro 
Zeüe  kann  der  Wert  für-  X  .wischen 
0  und  199  variieren. 

Außerdem  löscht  der  GNEW- 
Befehl  die  64  programmierbaren 
Zeichen  sowie  alle  nichtinvertierten 
Zeichen  auf  dem  Bildschirm.  Da 
sich  eine  Grafik  jedoch  aus  genau 
solchen  Zeichen  zusammensetzt, 
wird  —  falls  sich  eine  Zeichnung  auf 
dem  Büdschirm  befindet  —  diese 
gelöscht.  Invertierte  Zeichen  wer¬ 
den  hingeben  nicht  verändert,  so 
daß  Texte  oder  Beschriftungen  er¬ 
halten  bleiben. 


Doch  nun  ein  Beispiel: 

10  PRINT  CHR$(147);CHR$(18); 
20  PRINT  »TEST-PROGRAMM« 
30  GNEW 
40  GON 

50  FOR  1  =  0  TO  111 
60  :  PLOT  1,1 
70  NEXT 

80  POKE  198,0:WAIT  198,1 
90  GOFF 


In  den  Zeilen  10  bis  20  wird  der 
Büdschirm  gelöscht  und  der  inver¬ 
tierte  Text  »TEXT-PROGRAMME« 
geschrieben.  Der  Befehl  »GNEW« 
löscht  den  Grafikspeicher  und  den 
Büdschirm,  wobei  der  invertierte 
Text  unverändert  bleibt.  GON  schal¬ 
tet  dann  die  Grafik  ein  und  in  der 
Schleife  wird  eine  Linie  von  links  un¬ 
ten  nach  rechts  oben  (in  der  augen¬ 
blicklichen  Schriftfarbe)  gezeich¬ 
net.  Sobald  Sie  eine  Taste  drücken, 
wird  die  Grafik  wieder  abgeschal¬ 
tet  und  Sie  sehen  eine  schräge  Linie 
aus  Fragezeichen. 

Das  Maschinenprogramm 

schreibt  ein  programmierbares  Zei¬ 
chen  auf  den  Büdschirm  und  ändert 
den  Grafikinhalt  dieses  Zeichens. 
Anschließend  wird  geprüft,  ob 
schon  ein  Zeichen  mit  genau  dieser 
Grafik  umdefiniert  wurde.  Ist  dies 
der  Fall,  so  wird  das  gefundene  Zei¬ 
chen  auf  den  Bildschirm  gebracht 
und  das  alte  Zeichen  ist  wieder  frei. 
Wegen  dieser  Optimierungs- 
Routine  »verbraucht«  das  Beispiel¬ 
programm  nur  ein  Zeichen  aus  dem 
schmalen  Vorrat  von  64  program¬ 
mierbaren  Zeichen. 

Da  diese  Optimierung  über  einen 
Vektor  verläuft,  kann  sie  durch  »PO¬ 
KE  1,PEEK(1)— 1«  abgeschaltet  wer¬ 
den.  Lassen  Sie  das  Testprogramm 
erneut  laufen  und  sehen  Sie  sich  das 
neue  Ergebnis  an.  Mit  »POKE 
1,PEEK(1)+1«  optimiert  das  Pro¬ 
gramm  wieder,  wird  aber  auch  et¬ 
was  langsamer. 

Durch  »PEEK(0)«  können  Sie  au¬ 
ßerdem  abfragen,  wie  viele  Zei¬ 


chen  noch  frei  sind.  Hierdurch  kann 
die  Fehlermeldung  »CHARACTER- 
ERROR  (IN...)«  verhindert  werden. 
Falls  PEEK(0)  den  Wert  Null  ergibt, 
sollten  keine  Grafikbefehle  mehr 
folgen. 

Andern  Sie  nun  die  Zeile  60  des 
Testprogramms  in  »60  TURN  1,1«  und 
erweitern  Sie  folgende  Zeile  mit 
»GOTO  50«. 


Tabelle  3.  Prüfsummen  zum  Grafikprogramm 


Zeüe  50-54 

2390 

2436 

2823 

2640 

3449 

Zeile  55-59 

3487 

3010 

3321 

2882 

2608 

Zeüe  60-64 

2930 

2741 

2458 

3089 

2285 

Zeile  65-69 

2480 

2156 

2935 

3048 

2241 

Zeüe  70-74 

2495 

2564 

3256 

2723 

2393 

Zeüe  75-79 

1864 

2230 

2187 

2148 

3300 

Zeüe  80-84 

3135 

2640 

3023 

2734 

1918 

Zeüe  85-88 

2258 

1431 

1564 

449 

— 
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Das  Programm  wird  jetzt  eine  Li¬ 
nie  ziehen,  anschließend  löschen 
und  so  fort,  da  die  Bildpunkte  jetzt 
fortlaufend  invertiert  werden.  Falls 
Sie  in  der  Zeile  40  den  Befehle 
»GON«  durch  »GOFF«  ersetzen,  kön¬ 
nen  Sie  anschaulich  verfolgen,  wie 
das  Programm  —  und  speziell  die 
Optimierung  —  arbeitet. 

Eme  Besonderheit  müssen  Sie  je¬ 
doch  unbedingt  beachten.  Die  neu¬ 
en  Basicbefehle  können  nicht  direkt 
hinter  einer  THEN-Anweisung  ste¬ 
hen.  Am  einfachsten  ist  es,  die  bei¬ 
den  Befehle  dann  durch  einen  Dop¬ 
pelpunkt  (...THEN  :  COPY)  zu  tren¬ 
nen. 


Listing  1.  »Bild  zentrieren« 

IO  REM  *******  BILD  ZENTRIEREN  ******** 
15  ! 

20  H=12  :  V=38 

25  POKE  178,0  :  WAIT  198,1  :  GET  A* 

30  IF  A*=CHR*<  13)  THEN  60 

35  IF  A*=CHR*<  17)  AND  V<255  THEN  V=V+1 

40  IF  A*=CHR*(145)  AND  V>0  THEN  V=V-1 

45  IF  A*=CHRS<  29)  AND  H<23  THEN  H=H+1 

50  IF  AS=CHRi ( 157)  AND  H>1  THEN  H=H-1 

55  POKE  36864, H  :POKE  36865, V: GOTO  25 
60  POKE  36864, 12: POKE  36865,38 
65  PRINT  "FOKE  36864  ,";H 
70  PRINT  "POKE  36865  ,";V 
READY, 


Zuletzt  eine  Grafik-Anwendung. 
Die  Bilder  3  und  4  zeigen,  welche  Er¬ 
gebnisse  mit  der  Grafik-Erweite¬ 
rung  möglich  sind.  Das  Basicpro- 
gramm  »FUNKTIONS-PLOT«  (Listing 
7)  vereinfacht  das  programmierte 
Plotten  von  Funktionen  doch  erheb¬ 
lich. 

Nachdem  Sie  das  Programm  ein¬ 
gegeben  und  gestartet  haben,  wer¬ 
den  Sie  nach  dem  Wertebereich  ge¬ 
fragt.  Anschließend  wird  die  Bild¬ 
umrahmung  gezeichnet.  Die  Größe 
sowie  die  Position  des  Diagramms 
auf  dem  Bildschirm  ist  durch  die  Va¬ 
riablen  Unten,  Oben,  Rechts  und 
Links  (U,0,R,L)  in  der  Zeile  110  festge¬ 
legt.  Die  Zeilen  170  bis  230  berech¬ 
nen  nun  das  Minimum  sowie  das 
Maximum  der  Funktion.  Außerdem 
werden  die  Werte  in  das  Feld  Y(A) 
übertragen.  Die  Variablen  MI  und 
MA  werden  in  Zeile  250  auf  vier 
Nachkommastellen  begrenzt.  Diese 
Werte  sowie  die  Funktion  selbst 
werden  nun  (invertiert)  im  unteren 
Bildteil  gedruckt.  Nachdem  die 
Funktion  grafisch  dargestellt  wurde, 
läuft  das  Programm  in  Zeile  390  in  ei¬ 
ner  Warteschleife. 

Drücken  Sie  jetzt  eine  Taste,  so  ge¬ 
langen  Sie  in  ein  Mini-Menü.  Sie  kön¬ 

60  33Ö? 


nen  nun  eine  neue  Funktion  einge¬ 
ben  oder  die  alte  mit  neuen  Werten 
untersuchen. 

Eine  neue  Funktion  wird  m  der 
Zeile  450  mit  INPUT  A$  übergeben. 
Salopp  gesagt,  programmiert  sich 
der  Copmputer  in  den  folgenden 
Zeilen  selbst.  Wie  das? 

Zuerst  wird  der  Bildschirm  ge¬ 
löscht  und  in  der  obersten  Zeile  die 
Zeilennummer  190  und  der  String 
A$,  der  die  neue  Funktion  enthält, 
gedruckt.  Die  Zeile  460  druckt  dar¬ 
unter  die  Nummer  190  und  einen 
PRINT-Befehl.  Anschließend  folgt 
ein  Anführungszeichen,  dann  die 
Funktion  und  schließlich  wieder  ein 
Anführungszeichen.  Zuletzt  wird  in 
der  dritten  Bildschirmzeile  der  Be¬ 
fehl  »RUN«  gedruckt.  Jetzt  könnte  auf 
dem  Bildschirm  der  folgende  Text 
stehen: 

190  Y=COS(X) 

290  ?”Y=  COS(X)” 

RUN 

Wäre  das  Programm  hierzu  Ende, 
so  müßten  Sie  nur  die  "GME-Taste 
drücken  und  der  Cursor  würde  auf 
der  Zeile  190  stehen.  Drückt  man 
jetzt  RETURN,  so  wird  diese  Zeile 


Listing  2.  »Bildschirmformat« 

10  REH  ******  BILDSCHIRM-FORMAT  ******* 
15  = 

20  V=46  :  H=22+ 1 28 

25  POKE  198,0  :  WAIT  198.1  :  GET  AS 
30  IF  A*-CHR*<  13)  THEN  60 

35  IF  AS=CHRS<  17)  AND  V<100  THEN  V=V+2 
40  IF  A*=CHR*<145)  AND  V>2  THEN  V=V-2 
45  IF  A*=CHR*<  29)  AND  H<155  THEN  H=H+1 
50  IF  AS=CHR*<157)  AND  H>128  THEN  H=H-1 
55  POKE  36866, H  : POKE  36867, V  : GOTO  25 
60  POKE  36867, 46: POKE  36866,150 
65  PRINT  "POKE  36866  ,";H 
70  PRINT  "POKE  36867  ,  ";V 
READY. 


Listing  3.  »Bild-RAM«  -  Umschalten  zwischen 
zwei  Bildschirmseiten 

1  REM  *****  BILD-RAM  ***** 

2  : 

10  D-36B66:P1=30:P2-2B 

11  POKE  52, P2: POKE  56. P2 
15  : 

30  GOSUB  80 

31  PRINT  CHR* (147) : PRINT 

32  PRINT"  ERSTE  SEITE" 

35  : 

40  GOSUB  90 

41  PRINT.  CHR*(  147)  :PRINT 

42  PRINT"  ZWEITE  SEITE" 

45  : 

50  FOR  Z=0  TO  300: HEXT 

51  GOSUB  80 

60  FOR  Z=0  TO  300iNEXT 

61  GOSUB  90  :GOTO  50 

70  : 

80  POKE  D,  PEEK  (D)  OR  128 

81  POKE  648, PI : SYS  58775 

82  RETURN 
85  : 

90  POKE  D.PEEK(D)  AND  127 

91  POKE  648, P2: SYS  58775 
93  RETURN 

READY. 


einprogrammiert.  Ein  erneuertes 
RETURN  übernimmt  die  Zeile  290  in 
das  Programm  und  beim  dritten  RE¬ 
TURN  wird  der  Befehl  RUN  ausge¬ 
führt.  Da  sich  der  Computer  bis  zu 
neun  Tastatureingaben  »merken« 
kann,  brauchen  Sie  diesen  Ablauf 
nicht  »von  Hand«  einzugeben.  Der 
erste  POKE-Befehl  in  der  Zeile  470 
sagt  dem  Computer,  daß  —  angeb¬ 
lich  —  sechs  Tasten  gedrückt  wor¬ 
den  sind.  Zuerst  »CURSOR  HOME« 
(POKE  631,19),  und  dann  fünfmal 
»RETURN«  (Zeile  480).  Nach  dem 
END-Befehl  führt  er  diese  —  unter¬ 
geschobenen  —  Eingaben  aus,  pro¬ 
grammiert  die  beiden  Programm¬ 
zeilen  ein  und  startet  sich  zuletzt  wie¬ 
der  mit  dem  RUN-Befehl. 

Dieses  Verfahren  ist  übrigens 
sehr  praktisch,  falls  man  ein  Maschi¬ 
nenprogramm  in  DATA-Zeilen  um¬ 
wandeln  muß.  Vorausgesetzt  das 
notwendige  Programm  ist  fehlerfrei, 
kann  man  eigentlich  sicher  sein,  daß 
es  der  Basic-Lader  anschließend 
auch  ist. 

Wie  Sie  an  dem  Funktions-Plotter 
sehen  können,  ermöglicht  die  Gra¬ 
fikhilfe  die  Programmierung  auch 
komplexerer  Grafiken  in  einfacher 
und  überschaubarer  Form.  Da  die 
Erstellung  der  Grafik  recht  schnell 
erfolgt,  ist  eine  große  Vielfalt  von 
Anwendungen  denkbar. 

(Heino  Verder/ev) 


Listing  4.  »Programmierbarer  Zeichensatz« 

10  REM  *******  PRDG.  ZEICHENSATZ  ****** 

11  : 

12  POKE  52,26  =POKE  56,26 

15  : 

20  FOR  1=0  TO  255  :POKE  7680+1,1 

25  POKE  38400+1,0  :NEXT 

30  POKE  36869,240+15 

35  FOR  1=7168  TO  7679  :POKE  I,255:NEXT 
40  FOR  1=7168  TO  7679  :POKE  1,0  : NEXT 

45  FOR  1=0  TO  511  : C=PEEK< 32768+ I ) 
50  POKE  716B+I.C  :NEXT 

55  POKE  36B69, 240+0 
READY. 


Listing  6.  Prüfsummenprogramm  zum  Basic- 
Lader  aus  Listing  5.  Das  Zeichen  »  i  «  in  Zeile 
28  ist  der  Hochpfeil  (»I«) 

10  REM  *********  PRUEFSUHME  ********** 

12  ZD=50: A=I : FOR  1=0  TO  896: READ  A* 

14  ZL=PEEK (60) +PEEK (61 >  *256: D=0 
16  IF  ZL=ZD  THEN  20 

18  PRINT  "ZEILE"; ZD:C  :  ZD=ZL  :  C=0 
20  FDR  L=1  TO  2: IF  LEN ( A*> <2THEN  A*="0"+Ai 
22  WS=MID*(A*,L, 1):W=0: IF  W*=""THEN  24 
24  W=ASC(W*)-48  : IF  W>9  THEN  W-W-7 

26  : 

28  D=D+W* 16A (2— L )  : NEXT  :  C-C+D  :  S-S+l 
30  NEXT  :  PRINT  " ZEILE" ; ZD, C  :  END 
32  : 

50  DATA  EA, EA, EA, 78, A9, BC, 8D, 14,3, A9. . . 
READY. 
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Listing  5.  Basic-Ladeprogramm  zur  Befehlserweiterung 

IO  FQR  1=4096  TO  9999: IF  PEEK  (IX >42THEN  NEXT 
12  A=I:FOR  1=0  TO  896: READ  A$:D=0:PRINT"" ; I 
14  FOR  L=1  TO  2: IF  LEN ( AS ) < 2THEN  AS="0"+AS 
16  WS=MID$  <AS , L, 1  )  : W=0: IF  WS=""THEN  18 
18  W=ASC(WS)-4B  : IF  W>9  THEN  W=W-7 
20  : 

22  D=D+W#16'~-  (2-L)  : NEXT: POKE  I+A.D;NEXT 

24  FOR  1=0  TO  896 : D=PEEK ( A+ I )  : POKE  6272+1 , D: NEXT 

26  POKE  51,128  :  POKE  52,24 

28  POKE  55,128  :  POKE  56,24  : NEW 

30  : 


32  REM  ********** 

50  DATA  EA,EA,EA,78, A9,BC,8D, 14,3,A9, 18, 8D, 15, 3, A9, 1B, 8D, 8, 3, A9, 19,BD,9 

51  DATA  3, A9, 11,85, 1,A9, 1B, 85,2, 8D, F2, 1B, 58 , 60, 78, A9, BF , 8D, 14, 3, A9, EA, 8D 

52  DATA  15,3, A9 , E4 , 8D, 8,3, A9, C7, 8D, 9,3, 58, 60, AD, F2 , 1B, FO, D, CE, F2, 1B, A4,D3 

53  DATA  Bl, Dl, 8D, Fl, 1B,8D,F0, 1B, A9, 18, 48, A9, DB, 48, 8, 8, 8, 8, 4C, BF, EA, AE, 5 

54  DATA  90 , E8 , DO , O , A4 , D3 , A6 , CC , DO , 2E , AD , F 1 , 1 B , FO , 8 , 8E , F 1 , 1B, Bl , Dl , 8D, FO 

55  DATA  1B, A5, C6, FO, E, A5, CB, C9, 1B, FO, 5, EE, F2, 1B, DO, 9, EE,F1 , 1B, A9, E6, A6, CF 

56  DATA  DO, 3, AD, FO, 1B, Dl , Dl , FO, 2, 91 , Dl , 4C, 18, EB, A9, 7, 85, 58, A9, O, 48, AA, CA 

57  DATA  A0,0,C8,E8,BD, AB, 1B, FO, F, Dl , 7A, FO, F5, 18, 68, 69, 8, C6, 58, DO, E8, 4C, E4 

58  DATA  07,68,88,98, 1 8, 65, 7A, 85, 7A, 90, 2, E6, 7B, BD, AC, 1B, 85, F7, BD, AD, 1B,B5 

59  DATA  F8,  20, 55,  19, 4C,  18,  19,  60,  F7,  O,  A2,  FF,  DO,  2,  A2,  FO,  BE,  5,  90,  60,  AO,  O,  A2 

60  DATA  2 , 84 , 62 , 84 , 64 , A9 , 80 , 85 , 63 , A9 , IC, 85, 65, Bl , 62, 91 , 64, 08, DO, F9, E6, 63 

61  DATA  E6 , 65 , CA , DO , F2 , 60 , AD , 2 , 90 , 29 , 7F , 8D , F5 , 1B, A, A, A, 8D, F4, 1B,AD,3,90 

62  DATA  29 , 7E , A , A , 8D , F3 , 1B,CE,F3, 1B,A9, IC, 85, 63, A9, IE, 85, 65, AO, Ö, 84, 62, 84 

63  DATA  64, A2, 1 , A9, 0, 91 , 62, Bl , 64,30, 4, A9, AO, 91 , 64, C8, DO, Fl , E6, 63, E6, 65, CA 

64  DATA  IO,  EA,  A2 , 3F,  86,  O,  A2,  7F,  A9 , O, 9D,  50,  3,  CA,  10,  FA,  60,  A2,  O,  20,  A2, 2, 2C 

65  DATA  A2,  4,  BD,  EO,  1B,  8D,  40,  3,  BD,  El ,  1B,  8D,  41 , 3,  20,  73,  O,  20,  8A,  CD,  20,  F7,  D7 

66  DATA  AO,  58,  A6,  1 5,  DO,  29,  BE ,  43,  3,  A5,  14, 8D,  42, 3,  CD,  F4,  1B,B0,  IC,  20,  79, 0,  20 

67  DATA  FD, OE, 20, 8A, CD, 20, F7, D7, A5, 15, DO, 8, AD, F3, 1B,38,E5, 14, BO, 17, A9,59 

68  DATA  DO,  2,  A9,  58,20,  D2,FF,  A9, 2D,  20,  D2,  FF.  20,  7A,  06, 08,  A9, 6B,  40, 67, 04,  AA 

69  DATA  20,98, 1B, 8E, 45, 3, A9, IE, 85, 5B, A9, 0. CO, 0, FO, B, 18,6D,F5, 1B,90,2,E6 

70  DATA  5B, 88, DO, F5, 85, 5A, AE, 42, 3, 20, 98, 1  ,D, 43, 3, FO, 5, 98, 18, 69 , 20, AB, A9 

71  DATA  0, E8, 38, 6A, CA, DO, FC, 86, FD, 8D, 44, 3, Bl, 5A, 8D, 47, 3,30, 15,05,0,90, 11 

72  DATA  AA,  BD,  50, 3,  DO,  6,  Bl ,  5A,C5,  O,  BO,  3A,  DE,  50,  3,  E6,  FD,  A5,  FB,  FO,  9,  C6,  FB 

73  DATA  A6, FB, BD, E8, 3, DO, 1 1 , A5, O, DO, B, 58, A9, E6, AO, 1B, 20, IE, CB, 40, 22, 1 A, C6 

74  DATA  O,  91 , 5A,  AA,  A5, 5A,  1 8,  69,  O,  85,  58,  A5,  5B,  69,  78, 85,  59,  AD,  86,2, 91 , 58,  8A 

75  DATA  78, 85, FC, 80, 46, 3, A2, 0,86, 59, A, 26, 59, A, 26,59, A, 26, 59, 18,69,0,85,58 
.  76  DATA  A5,59,69,  1 C,  85,  59,  A5,  FD,  FO,  24,  A9,  O,  85,  5E,  AD,  47, 3,  A,  26 , 5E,  A,  26, 5E 

77  DATA  A,26,5E,  1 8,  69,  O,  85,  5D,  A5,  5E,  69,  1 C,  85, 5E ,  AO,  7 ,  Bl  ,  5D,  91 . 58, 88,  10,  F9 

78  DATA  AC,  45,  3,  AD,  44,3, 20, 8A,  1B,  91 , 58,  58,  6C,  1 ,  O,  60, 78,  AO,  7, 84,  FD,  Bl  ,  58 

79  DATA  99,  EO, 3, DO, 2, C6, FD, 88, 10, F4, E6, FD, DO, 4, A9, AO, DO, 24, A9, 1E,85,5E, A9 

80  DATA  O,  85,  5D,  A2, 40,  DO,  42,  AO,  7,  E4,  FC,  FO,  30,  E4.  O,  FO,  4B,  Bl ,  5D,  D9,  EO,  3,  DO 

81  DATA  31 , 88, 10, F6, FE, 50,3, 8A, AC, 46, 3, 91 , 5A, A6,FC, BD, 50, 3, FO, 3, DE, 50, 3 

82  DATA  8A,  E6,  O,  05,  0,  FO,  9, 06, 0,  A6,  FB,  9D,  E8,  3,  E6,  FB,  AO,  7 ,  A9, 0,91, 58,  88,  10 
B3  DATA  FB,  30,  IO,  A5, 5D,  38,  E9,  B,  BO,  2,  C6,  5E,  85.  5D,  CA.E4,  O,  DO,  AE,  58,  60,  6C.  40 

84  DATA  3,  1 1 , 58,  60,  51 , 58,60,  49,  FF,  31 , 58, 60,  AO,  O,  8A,  IO,  4  ,  AO,  10,  29, 7F,  AA,  30 

85  DATA  E9, 8,  90, 3,  08,  DO,  F7,  60, 50, 40,  4F,  54,0,  Dl,  19,  O,  54, 55, 52,  4E,  O,  D4,  19 

86  DATA  O,  43,  4C,  45,  41 , 52,0,  D7,  19, 43,  4F,  50,  59,  O,  62,  19,  O,  CB,  4E,  0, 58,  19,0,0 

87  DATA  O, CB, 46, 46, 0,50, 19, O, O, 47, A2, O, 81 , 19, 8D, 1B,90, 1B,93, 1B, 43, 48, 41 

88  DATA  52,41,43,54,45,52,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0, 

READY. 


Listing  7.  Basicprogramm  »Funktions-Plot«  zur  Demonstration  der  neuen  Grafikbefehle 


CURSOR-CODE:  FRINT"C" 

“H" 
"D" 
"R" 


=>  CLEAR  HOME 
=>  CURS.  HOME 
=>  CURS.  DOWN 
=>  REVERSE 


lOO  CLR:  INPUT "CR  WERTEBEREI  CH"  ;  X 1  ,  X2 
110  U=80: 0=183: L=0: R=175: D=R-L: K=1 OOOO 
120  GNEW: GON: DIM  Y(D):IF  X1=X2  THEN  lOO 
130  FOR  A=L  TO  R:PLOT  A,U:PLOT  A,0:NEXT 
140  FOR  A=U  TO  D:PLOT  L,A:PLOT  R, A: NEXT 
150  IF  X 1 >X2  THEN  Z=X 1 : X 1=X2: X2=Z 
160  : 

170  SX= ( X2-X1 ) /D: X=X 1 : MI=1E3B:P=MI : MA=-MI 

180  FOR  A=0  TO  D 

190  Y=SIN(X)+SIN(2*X> 

200  IF  Y >MA  THEN  MA=Y 

210  IF  Y<MI  THEN  MI-Y 

220  IF  ABStYXP  THEN  P=ABS(Y):N=A 

230  Y (A) =Y : X=X+SX : NEXT: SY=  <MA-MI ) / (O-U-5) 

240  : 

250  MI=INT(MI*K>/K:MA=INT<MA*K)/K:K=0 
260  PRINT  "SDDDDDDDDDDDDDDDDDR  ";:T1=K 


270  T2=LEN ( STRS (  X 1  >  > -LEN  < STR* (MI ) > 

280  IF  T2<K  THEN  T1=-T2:T2=K 
290  PRINT  "Y=SIN<X>+SIN(2*X> " 

300  PRINT  TAB(Tl) ; "RD"; XI : "<X<" ; X2 
310  PRINT  TAB (T2) ; "R"  ; MI ; "<Y< " ; MA 

320  IF  MI =>K  AND  MA=>K  OR  MI<=K  AND  MA<=K  THEN  340 
330  P=U+3+INT< <Y <N> -MI ) /SY> : FOR  A=l_  TO  R : PLOT  A,P:NEXT 
340  IF  X1=>K  AND  X2=>K  OR  X1<=K  AND  X2  <=K  THEN  360 
350  P=INT  < ABS<  X 1 ) /SX 1 : FOR  A=U  TO  0:PL0T  P,A:NEXT 
360  : 

370  FOR  A=L  TO  R: P=U+3+ INT ( < Y (A-L > -MI > /SY) 

380  PLOT  A,P: IF  PEEK  <K)  THEN  NEXT 
390  POKE  198,0: WAIT  198,1:GET  AS 
400  PRINT  "CR  F  =>  FUNKTION" 

410  PRINT  "R  W  =>  WERTEBEREICH" 

420  WAIT  198, 1 : GET  AS 
430  IF  AS”  "W"  THEN  100 
440  IF  AS<  >"F"  THEN  420 

450  COPY: INPUT  "C  FUNKT  ION" ; AS: PRINT  "C  190";A* 

460  PRINT" 290  ?” ; CHRS ( 34 ) ; AS; CHRS (34 > 

470  PRINT  "RUN  ":POKE  198,6:POKE  631,19 
480  FOR  1=632  TO  636:P0KE  I , 13: NEXT : END 
READY. 
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Als  es  noch  keine  Diskettenlaufwerke  gab,  standen 
lediglich  Bandgeräte  zur  Datenspeicherung  zur  Verfü¬ 
gung.  Und  auf  Bändern  ist  nur  sequentielles  Spei¬ 
chern  möglich.  Auch  mit  der  Floppy  kann  man  Daten 
sequentiell  speichern,  obwohl  der  Vorteil  der  Diskette, 
der  direkte  Zugriff  auf  Daten,  nicht  ausgenutzt  wird. 


I 


Software 


Die  sequentielle  Datenspeicherung 


Record  ist  nur  die  englische  Be¬ 
zeichnung  für  Datensatz.  Alle  Kartei¬ 
karten,  also  alle  Datensätze,  nennt 
man  eine  Datei.  Damit  wären  die 
wichtigsten  Begriffe  geklärt  und  wir 
können  zum  Wesen  der  sequentiel¬ 
len  Datei  kommen. 

Wie  schon  gesagt,  werden  bei 
dieser  Dateiart  alle  Daten  hinterein¬ 


Wenn  Sie  sich  das  Diskettenlauf¬ 
werk  gerade  erst  gekauft  ha¬ 
ben,  werden  Sie  sicher  zu  Be¬ 
ginn  einige  Schwierigkeiten  haben, 
es  auch  richtig  einzusetzen.  Das  er¬ 
ste,  was  man  macht,  wird  das  Laden 
und  Abspeichern  von  Programmen 
sein.  Daß  Sie  mit  der  Floppy  noch 
viel  mehr  machen  können,  wissen 
Sie  ja  auch  schon  längst.  Und  sicher 
fallen  Ihnen  einige  Möglichkeiten 
ein,  die  Sie  wohl  gerne  realisieren 
möchten.  Meistens  sind  das  am  An¬ 
fang  eine  Adressenkartei,  eine 
Schallplattensammlung  erfassen 
oder  etwa  seine  Dias  ordnen  und 
auswerten.  Wir  möchten  Ihnen  den 
Einstieg  etwas  erleichtern  und  Sie 
Schritt  für  Schritt  mit  den  Methoden 
der  Datenverwaltung  vertraut  ma¬ 
chen. 

Es  gibt  verschiedene  Arten  von 
Dateien  und  unterschiedliche  Me¬ 
thoden  ihrer  Verwaltung.  Hauptsäch¬ 
lich  sind  das  die  sequentielle,  die  re¬ 
lative  Datei  und  der  Direktzugriff  auf 
die  Diskette. 

Gerade  für  Anfänger  ist  die  se¬ 
quentielle  Datei  eine  geeignete  Me¬ 
thode,  Daten  zu  verwalten.  Diese 
Einfachheit  ist  allerdings  verbunden 
mit  einer  gewissen  Langsamkeit, 
Aber  wenn  sie  sich  erst  einmal  mit 
der  sequentiellen  Datenspeiche¬ 
rung  auskennen,  wird  auch  die  rela¬ 
tive  Datei  und  die  Direktzugriffsme¬ 
thode  kein  großes  Problem  mehr  für 
Sie  darstellen.  Außerdem  gibt  es  ge¬ 
nügend  Probleme,  für  die  eine  se¬ 


quentielle  Datenspeicherung  völlig 
ausreichend  ist. 

Zuerst  sollen  Sie  einige  wichtige 
Begriffe  kennenlernen. 

Sequentiell  bedeutet  hintereinan¬ 
der.  Also  alle  Daten,  die  wir  benut¬ 
zen,  werden  hintereinander,  se¬ 
quentiell  auf  der  Diskette  gespei¬ 
chert  (bei  Kassetten  ist  eine  aridere 
Methode  gar  nicht  möglich). 

Immer,  wenn  man  von  und  über 
Dateien  spricht,  werden  solche  Vo¬ 
kabeln  wie  FELD,  DATENSATZ  oder 
auch  RECORDS  genannt.  Was  ist 
das  eigentlich? 


Der  Computer  ersetzt 
Karteikarten 


Die  meisten  von  Ihnen  kennen  ei¬ 
ne  Karteikarte.  Auf  dieser  Karteikar¬ 
te  können  mehrere  Eintragungen 
stehen.  Angenommen,  Sie  besitzen 
eine  Adressenkartei,  dann  stehen 
auf  jeder  Karteikarte  normalerwei¬ 
se  der  Vorname,  Nachname,  Straße, 
Postleitzahl  und  Ort  und  die  Telefon¬ 
nummer,  manchmal  auch  der  Ge¬ 
burtstag  und  andere  wichtige  Da¬ 
ten.  Das  sind  die  einzelnen  Felder 
eines  Datensatzes.  Die  Gesamtheit 
aller  Felder  auf  einer  Karteikarte 
bezeichnet  man  als  einen  Datensatz, 
also  alle  Daten,  die  zusammengehö¬ 
ren.  Somit  besteht  ein  Datensatz  aus 
mehreren  Feldern.  Und  der  Begriff 


ander  (sequentiell)  auf  der  Diskette 
gespeichert.  Das  sieht  dann  zum 
Beispiel  so  aus  wie  m  Bild  1. 

Angenommen,  unsere  Datei  be¬ 
sitzt  schon  200  Adressen  und  eine 
Adresse  enthält  den  Namen  Hu¬ 
ber,  Anton.  Wollen  wir  jetzt  seine  An¬ 
schrift  wissen,  so  muß  die  Datei  von 
Anfang  an  durchsucht  werden,  bis 
zu  dem  Datensatz,  in  der  der  Huber 
steht.  Steht  der  gesuchte  Name 
ziemlich  am  Ende  der  Datei,  so  kann 
die  Suche  einige  Zeit  in  Anspruch 
nehmen;  je  größer  die  Datei,  desto 
mehr  Zeit  beansprucht  die  Suche. 
Diese  Suche,  aber  auch  alle  ande¬ 
ren  Operationen  wie  Ergänzungen, 
Veränderungen  oder  Sortieren  der 
Datei  spielen  sich  im  Speicher  des 
Computers  ab.  Das  bedeutet,  daß, 
wenn  man  mit  dieser  Adressendatei 
arbeiten  will,  zuerst  die  gesamte  Da¬ 
tei  von  der  Diskette  in  den  Speicher 
geladen  werden  muß.  Und  am  En¬ 
de,  nach  getaner  Arbeit,  wird  sie 
wieder  auf  die  Diskette  zurückge¬ 
speichert. 

Wenden  wir  uns  dem  Beispiel  in 
Bild  2  zu.  Es  ist  ein  kleines  und  noch 
nicht  einmal  fertiges  Adressen- 
Datei-Programm  (die  Funktionen 
»Suchen«,  »Löschen«  und  »Ändern«) 
sind  noch  nicht  codiert  worden.  Je¬ 
doch  kann  sich  jeder  dieser  Module 
selber  schreiben.  Auf  eine  Beson¬ 
derheit  möchte  ich  gleich  hinwei- 
sen.  In  den  Zeilen  133  bis  135  stehen 
die  Erklärungen  der  verwendeten 
Steuerzeichen,  die  diesmal  codiert 
ausgedruckt  wurden.  Deswegen 
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3.  Datensatz 

- - 4.  Datensatz - - 5.  Datensatz  - 

7  /  /  7  //  /  /  /  /  X 

)  Telefon 

Nachname 

Vorname 

Straße 

PLZ 

Ort 

Telefon 

Name 

Vorname 

Straße  ) 

/  6.  Feld 

1.  Feld 

2.  Feld 

3.  Feld 

4. 

Feld 

5.  Feld 

6.  Feld 

1.  Feld 

2.  Feld 

3.  Feld  j  / 

CO 

co 

CO 

fo 

CO 

CO 

« 

T— 

T- 

</> 

M 

w 

w 

w 

Vi 

V» 

i 

ec 

ec 

CE 

ec 

CE 

CE 

i 

X 

X 

X 

X 

X 

X 

O 

o 

o 

o 

o 

O 

u 

in  dieser  Reihenfolge  stehen  die  Daten  in  einer  sequentiellen  Datei  (bezogen  auf  das  Beispielprogramm) 


brauchen  Sie  nicht  mehr  mit  der  Lu¬ 
pe  und  viel  Fantasie,  die  manchmal 
schwierig  zu  erkennenden  Commo- 
dore-Steuerzeichen  versuchen,  zu 
interpretieren.  Drücken  Sie  einfach 
die  entsprechende  Cursortaste  (in¬ 
nerhalb  der  PRINT-Anweisung) 
wenn  die  Zeichen  »CRR«  und  »CRL« 
im  Listing  erscheinen.  Auf  Ihrem 
Bildschirm  sollten  sie  dann  die  ent¬ 
sprechenden  Grafikzeichen  erken¬ 
nen.  Gefällt  Ihnen  diese  Art  der  Dar¬ 


stellung?  Wir  würden  gerne  Ihre 
Meinung  dazu  erfahren. 

Der  Aufbau  des  Programms  dürf¬ 
te  nicht  schwer  zu  durchblicken 
sein.  Aber  es  gibt  einige  Programm¬ 
zeilen  und  -abschnitte,  die  man  sich 
einmal  näher  anschauen  sollte. 

Zeile  9110  :  Die  Variable  ST  ist  eine 
Statusvariable,  die  der  C  64  und  der 
VC  20  für  sich  beanspruchen.  Hier 
gibt  sie  Auskunft  darüber,  ob  das 
Dateiende  erreicht  ist.  In  diesem 


Fall  wird  nämlich  das  6.  Bit  gesetzt  (2 
hoch  6  ergibt  64).  Da  aber  in  dieser 
Systemvariablen  auch  andere  Nach¬ 
richten  abgelegt  werden,  die  ande¬ 
re  Bits  beeinflussen  und  ST  auch  bei 
Dateiende  einen  von  64  ungleichen 
Wert  zu  weisen  können,  müssen  wir 
mit  der  AND-Verknüpfung  feststel¬ 
len,  ob  speziell  dieses  6.  Bit  gesetzt 
ist. 

Aus  Sicherheitsgründen  habe  ich 
vor  jedem  OPEN-Befehl  ein  CLOSE 


100  REM 
110  REM 
120  REM 

130 

131 


133 

134 

135 

136 

137 
13a 
140 
150 
160 


REM 

REM 

REM 

REM 

REM 

REM 

REM 


*****************  *******6-****** 
*  ADRESSENDATEI  64 'ER/6  * 

*■»*  «**•***-*  *-*■*•  »**-#-***  ****** **** 

*****  STEUERZEICHEN  ***** 

*  * 

*  <CLR>  =  CLR/HOME  * 

*  <CRR>  =  CURSOR  RECHTS  * 

*  <CRL>  =  CURSOR  LINKS  * 

*  * 
**-*#■**#****#*-*******•*•***•*• 


1320 

1500 


m 


DI  =200 

DIM  NV*<DI)  ,NN*<DI>  ,SR*(DI> 
DIM  PL* (DI) , OTT (DI) , TET ( DI ) 


1  <  CLR  > 1 
PRINT 


170  POKE  53281,$ 
180  CL08E  15: OPEN 

1000  REM  - 

1010  REM  -  MENUE 

1 020  REM  - 

1030  : 

1040  PRINT 
1050  PRINT 
1060  PRINT 
1070  PRINT 
1080  PRINT 
1090  PRINT 
1100  PRINT 
1 1! 

1110  PRINT 
1120  PRINT 
1130  PRINT 
1140  PRINT 
1150  PRINT 
1160  PRINT 


15,8, 15 


: PRINT 
"  X 


ADRESSENDATEI " 

=  PROGRAMMENDE " 


1  =  ANZEIGEN  GESAMTE  DATE 


2  =  SUCHEN' 


3  =  LOESCHEN" 

4  =  AENDEEN" 


1  170 

F  R  INT 

1  180 

11 

PRINT 

"  5  =  NEUE  ADRESSEN  EINGEBE 

1190 

PRINT 

1230 

PRINT 

”  6  =  SPEICHERN" 

1210 

PR  I  NT 

: PR INT  SPRINT  : 

PRINT 

1220 

PRINT 

"WAEHLEN 

SIE 

1230 

GET  Ri 

: IF  Ri= " 

"  THEN 

1230 

1240 

IF  R*= 

,;X"  THEN 

1500 

1250 

IF  R*= 

"1"  THEN 

SOSUB 

2008: REM 

ANZ, 

1260 

IF  Ri= 

"2"  THEN 

GOSUB 

300S: REM 

SUCH 

1270 

IF  R$= 

"3"  THEN 

GOSUB 

4003: REM 

DEL 

1280 

IF  R4-= 

“  4  "  THEN 

GOSUB 

5000: REM 

AEN 

1290 

IF  R*= 

"5"  THEN 

GOSUB 

6008: REM 

NEU 

1330 

IF  R*= 

"6"  THEN 

GOSUB 

8880 : REM 

SPEI 

1310 

GOTO  1 

800 

REM  - 

REM  -  PROGRAMM  ENDE 

REM  - 

1530  REM  SS=2  WENN  NICHT  GESPEICHERT 
IF  SS=1  THEN  GOSUB  3000 
CLOSE  15 


1540 
1550 
1560  END 
1570  : 
1580 
2000 
2010  REM 
2020  REM 
2030  : 


Bild  2.  Kleine  Adressdatei 


REM 


-  ANZEIGEN  GESAMTE  DATEI 


2040 

IF  L=0 

THEN  GOSUB 

9000: REM 

LADEN 

2050 

FOR  1=1 

TO  ND 

2060 

: PR I NT 

" <  CLR  > 

ANZEIGE  DER 

DATEI 

2065 

: PRINT 

2070 

: PRINT 

"  NUMMER  " 

; I: PRINT 

2075 

: PRINT 

2080 

SPRINT 

"  NAME 

:  "NV* ( I ) " 

"NN*  < I ) 

2100 

: PRINT 

"  STRASSE 

:  " SR* ( I ) 

2110 

: PRINT 

"  PLZ /ORT 

:  "PL* ( I ) " 

"OTi(I) 

2130 

: PRINT 

"  TELEFON 

:  "TE*  < I ) 

2150 

:  PR I NT 

: PR  INT  : PRINT 

2160 

: PRINT 

"  W  =  WEITER  X  = 

ENDE  " 

2170 

: GET  R* 

: IF  R*=" " 

THEN  2170 

2180 

: IF  R*= 

"X"  THEN  2 

200 

2190  NEXT  I 
2200  RETURN 
2210  : 

6000  REM  - 

6010  REM  -  EINGABE  NEUE  DATEN 

6020  REM  - 

6030  : 

6040 


LADEN 


IF  L=0  THEN  GOSUB  9030: REM 

ppt^jt  "  XLFC  " 

6060  PRINT  "  "  ‘EINGABE  NEUE  DATEN" 

607E  FR INT  : PRINT 

6075  ND=ND+1 

6076  PRINT  "  NUMMER  " ; ND 
6078  PRINT  : PRINT 

6080  INPUT  "NACHNAME  < CRR X CRR X CRR > . < CR 
L  >< CRL  X  CRL  > " ; NN* ( ND ) 

6090  INPUT  "VORNAME  <CRRXCRRXCRR>.  <CR 
L  X  CRL  X  CRL  > " ; N V* ( ND ) 

6100  INPUT  "STRASSE  <CRRXCRRXCRR>.  <CR 
L  X  CRL  X  CRL  > " ; SR* C  ND ) 

6110  INPUT  "PÜSTLZ.  < CRR >< CRR >< CRR > . < CR 
L  X  CRL  X  CRL  > " ; PL* ( ND ) 
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gesetzt,  damit  nicht  durch  einen  Pro¬ 
grammierfehler  ein  »FILE  OPEN 
ERROR»  entstehen  kann.  Zum 
CLOSE-Befehl  sei  noch  so  viel  ge¬ 
sagt,  daß  er  unbedingt  existieren 
muß.  Sonst  kann  es  Vorkommen,  daß 
nicht  alle  Daten  auf  die  Diskette 
übertragen  werden,  und  noch 
schlimmer,  daß  die  Datei  nicht  ord¬ 
nungsgemäß  geschlossen  werden 
kann.  Dadurch  kann  die  gesamte 
Datei  unrettbar  verloren  sein.  Also 
Vorsicht. 

Wenn  Sie  sich  das  Programm  et¬ 
was  näher  anschauen,  könnten  Sie 
über  die  Variablen  »SS«  und  »L«  stol¬ 
pern.  Diese  Variablen  habe  ich  ein¬ 
gesetzt  als  »Flags«.  Sie  regeln,  ob  ein 
Aufruf  dieses  Menüpunktes  smnvoll 
ist  und  das  entsprechende  Unter¬ 
programm  ausgeführt  werden  soll. 
Zum  Beispiel  verhindert  die  Varia¬ 
ble  »L«  in  Zeile  8025,  daß  Daten  ge¬ 
speichert  werden,  wenn  die  Datei 
noch  gar  nicht  in  den  Speicher  des 
Computers  geladen  wurde.  Das 
würde  nämlich  bewirken,  daß  (in 


diesem  Fall  die  Datei  »ADRESS«) 
überschrieben  würde  ohne  es  zu 
wollen;  auf  Diskette  vorhandene  Da¬ 
ten  wären  verloren.  Also  eine  reine 
Sicherheitsmaßnahme. 


Sicherheit  ist  Trumpf 


Die  Variable  »SS«  verhindert,  daß 
das  Programm  beendet  wird,  ohne 
neu  eingegebene  Daten  vorher  ab¬ 
zuspeichern. 

Zuletzt  möchte  ich  noch  auf  einen 
Programmteil  hinweisen,  der  ab  Zei¬ 
le  10000  steht.  Dieses  Unterpro¬ 
gramm  wird  immer  dann  ange¬ 
sprungen,  wenn  eine  Datei  eröffnet 
wird.  Es  können  nämlich  auch  dann 
Fehler  auftreten,  wenn  das  Pro¬ 
gramm  sonst  einwandfrei  funktio¬ 
niert.  Es  kann  zum  Beispiel  sein,  daß 
sie  eine  schreibgeschützte  Diskette 
benutzen  wollen,  um  Daten  abzu¬ 
speichern.  Das  funktioniert  natür¬ 
lich  nicht.  Damit  das  Programm 
dann  nicht  abstürzt,  wird  jedesmal 


nach  einem  Öffnen  eines  Floppy- 
Kanals  diese  Routine  angesprun¬ 
gen.  Sie  können  dann  im  Fehlerfall 
das  Problem  beseitigen,  ohne  das 
Programm  neu  starten  zu  müssen 
und  damit  eventuell  alle  eingegebe¬ 
nen  Daten  zu  verlieren.  Der  Fehler 
»62«  in  Zeile  10062  weist  übrigens 
darauf  hin,  daß  ein  »FILE  NOT 
FOUND  ERROR«  gemeldet  wurde. 
In  diesem  Fall  kann  eine  neue  Datei 
angelegt  werden  (ab  11000).  Man 
kann  natürlich  auch  andere  Fehler 
direkt  abfragen.  Schauen  Sie  nach 
im  Floppy-Handbuch  von  Commo- 
dore.  Dort  sind  alle  Fehlermeldun¬ 
gen  erklärt. 

Ich  glaube,  daß  Sie  viele  Möglich¬ 
keiten  finden  werden,  eine  sequen¬ 
tielle  Datei  sinnvoll  einzusetzen.  Set¬ 
zen  Sie  sich  hin  und  fangen  Sie  an  zu 
programmieren  und  zu  experimen¬ 
tieren.  Erweitern  Sie  Ihr  Wissen 
durch  eigene  Erfahrungen.  Tippen 
Sie  nicht  nur  ab,  seien  Sie  kreativ! 

(Christian  Schlüter/gk) 


6120  INPUT  " ORT  <CRRXCRRXCRR>.  <CR  PI 00 

L  X CRL >< CRL > " : QT$ (ND)  9110 

6130  INPUT  "TELEFON  <CRRXCRRXCRR:>.  <CR  912 

L  X  CRL  X  CRL  >  "  :  TE*  ( ND )  - - 

6140  PRINT  : PRINT 


6150 

DE" 

6160 

6170 

6175 

6130 

6190 

8000 

3010 

3020 

8025 

8030 

8340 

8050 

S060 

8070 

8080 

8083 

N" 

8085 
8390 
8100 
81  10 
8120 
8130 
8140 
8150 
8160 
8165 
8170 
8180 
9000 
9010 
9020 
9030 
9040 

9045 

9046 

9047 

9048 

9049 
9350 

9060 

9070 

9030 

9090 


PRINT  "W  =  WEITERE  ADRESSE 


X  =  EN 


GET  R$:  IF 
IF  R$="W" 
SS=  1  :  REM 
RETURN 


R$=" "  THEN  6163 
THEN  6053 

DATEN  NEU  EINGEGEBEN 


REM  - 

REM  -  SPEICHERN  DATEI  AUF  DISK  - 

REM  - 

REM  L=0  WENN  NOCH  NICHT  GELADEN 
IF  L=0  THEN  8170 

CLOSE  1 :  OPEN  1,8,2."©:  ADRESSE .  S .  Ui " 
GOSUB  13030: REM  DISKETTENFEHLER? 
IF  A 1 <  >0  THEN  3040 
PR I NT#  1 . ND 
FÜR  1=1  tO  ND 

: PR  INT  " <  CLR >  SPEICHERN  DER  DATE 


: PRINT  I 
: PRINT# 

: PRINT# 

: PRINT# 

: PRINT# 

: PRINT# 

: PRINT# 
NEXT  I 
CLOSE  1 
SS=2: REM 
RETURN 


"  VON  "ND 
1 , N VT ( I > 

1  , NNT  < I > 

1 , SR  t ( I ) 

1 , PL* ( I ) 

1 , OTT ( I ) 

1 , TET ( I ) 


LETZTEN  STAND  GESPEICHERT 


REM  - 

REM  -  LADEN  DER  DATEI  VON  DISK  - 

REM  - 

1=0 

CLOSE  1 : OPEN  1 , 8 , 2  " ADRESSE . S , R" 
GOSUB  10000: REM  DISKETTENFEHLER? 
IF  A1O0  THEN  9030 


INPUT# 
1  =  1  +  1 
PRINT  ' 
INPUT# 

INPUT# 

INPUT# 

INPUT# 

INPUT# 


1 , NDT: ND=VAL (NDT) 


<  CLR  > " I " 
1 T  NVT ( I ) 
1  - NNT ( I ) 
1 .SRT( I ) 
1  PLT  (  I ) 
1 , OTT ( I ) 


VON  "ND 


9130 
9140 
9150  : 
10000 
10010 
10020 
10030 
10050 
10060 
10062 
70 

10065 

10070 

10080 

10090 

10100 

10110 

K 

10120 
10130 
10140 
10150 
10163 
10170 
10180 
1  1000 
1  1010 
1  1020 
1  1330 
11040 
1  1050 
NICHT* 
1  1060 
1  1070 
1  1080 
1  1090 
1  1100 
11140 
11150 
11160 
1  1170 
1  1 180 
1  1200 

READY . 


INPUT#  1 , TET ( I ) 

IF  (ST  AND  64)064  THEN  9348 
CLOSE  1 


l_=  1 :  REM 
RETURN 


DATEI  IST  GELADEN 


REM  - 
REM  - 
REM  - 
PRINT 
I NPUT# 

IF  A1=0  THEN 
IF  Al =62  THEN 


DISKETTENFEHLER 


<  CLR  > ’ 
15, Al , 


A2T- ,  A3  ,  A4 
10170 

GOSUB  11 000: GOTO  101 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 


Al , A2T; A3; A4 
: PR I  NT ' 

"  DISKETTENFEHLER" 

: PRINT 

BEHEBEN  SIE  DEN 


PRINT  " 

PRINT 
PRINT  " 

GET  RT: IF  RT=" 
PRINT  " < CLR > " 
RETURN 


FEHL* 


UND  DRUECKEN  SIE" 


>• 

THEN 


F  «* 
10150 


REM  - 
REM 
REM  - 

PRINT 

PRINT 


-  NEUE  DATEI  ANLEGEN 


:lr>* 

DIE 


DATEI  EXISTIERT  NOCH 


PRINT  : PRINT 

PRINT  "N  =  NEUE  DATEI  X  =  ENDE" 

GET  RT: IF  R*=" "  THEN  11080 

IF  R4=“ X "  THEN  RUN 

IF  R$< > " N "  THEN  11080 

CLOSE  1 : OPEN  1 , 8 , 2  " ADRESSE, S , W" 

FOR  1=1  TO  7 

i  "  '■ 


: PR I NT# 
NEXT  I 
CLOSE  1 
RETURN 


Bild  2.  Unsere  kleine  Adressendatei  ist  nicht 
ganz  vollständig.  Aber  das  ist  zum  Verständnis 
auch  nicht  notwendig.  Beachten  Sie  bitte  die 
Zeilen  131  bis  137  und  6080  bis  6130.  Diese 
Symbole  stehen  anstelle  der  sonst  so  schwer  zu 
erkennenden  Steuerzeichen. 


ie.de 

ie.net 


Ausgabe  8/August  1984 


STEILER  HEG  MACH  OBEH 


66  üi-'ar* 


Ausgabe  8/Aug-ast  19S4 


Castle  of  Doom 
ist  ein  Adventure, 
das  es  in  sich 
hat. 

Man  kann  nicht 
nur  drei 
verschiedene 
Versionen 
auswählen,  es 
ist  zudem  gar 
nicht  einfach,  bis 
ans  Ende  durch¬ 
zustehen.  Dazu 
brauchen  Sie 
Geduld,  eine 
gehörige  Portion 
Phantasie 
und  -  viel  Zeit. 


1  unächst  einige  wesentli- 
i  che  Informationen  zum 
Ablauf  des  Spiels: 

Am  Anfang  des  Spiels 
kann  man  sich  für  eine  von 
drei  verschiedenen  Versio¬ 
nen  entscheiden.  Bei  allen 


Versionen  ist  das  »Spielfeld« 
gleich,  doch  das  Ziel,  das  es 
zu  erreichen  gilt,  ist  jeweils 
ein  anderes.  Die  Komman¬ 
dos  müssen  jeweils  aus  zwei 
Worten  bestehen,  die  durch 
Leerraum  getrennt  werden. 
Beide  Worte  können  belie¬ 
bigabgekürzt  werden,  doch 
man  muß  darauf  achten,  daß 
keine  Mißverständnisse  auf- 
treten. 


Das  Programm  beinhaltet 
eine  kurze  Anleitung,  in  der 
die  wichtigsten  Punkte  der 
Befehlseingabe  nochmals 
erwähnt  werden.  Zudem 
sind  alle  Verben,  die  der 
Computer  versteht,  aufge¬ 
führt.  Wird  dennoch  ein 
Wort  benutzt,  das  der  Com¬ 
puter  nicht  kennt,  so  gibt  er 
an,  welches  der  eingegebe¬ 
nen  Worte  ihm  unbekannt  ist. 


Auf  dem  Bildschirm  sind 
immer  zu  sehen: 

—  eine  Grafik,  die  den  Ort 
zeigt,  an  dem  man  sich  befin¬ 
det, 

—  eine  Liste  der  Gegenstän¬ 
de,  die  sich  an  diesem  Ort 
befinden, 

—  eine  Liste  der  Gegenstän¬ 
de,  die  man  besitzt. 

(Bernd  Weißbecker/gk) 


SIE 

BESITZEN 

SAEFIS 

BUCH 


Bild  2. 


Welch, 


er  Weg  ist 


richtig 


Bild  1.  Oie  Burg  des  Grauens 


‘  ICHTUM6EH 


ES  GIBT 
HIER  : 


Der  Gewinner  des  Listing  des  Monats 


Der  Autor  Bernhard  Weiß¬ 
becker  wurde  am  29.10.1963 
in  Gelnhausen  geboren.  Er 
machte  sein  Abitur,  und  ist 
seit  Mitte  1983  bei  der  Bun¬ 
deswehr.  Wie  er  zur  Compu¬ 
terei  kam,  erzählt  er  selbst: 

Meine  ersten  Erfahrungen 
mit  Computern  machte  ich  in 
der  Schule.  Dort  gab  es  ei¬ 
nen  Computerraum,  der  mit 
einigen  PETs  bestückt  war. 
Am  Anfang  zogen  mich  Spie¬ 
le  wie  »Space  Invaders«  dort¬ 
hin,  doch  bald  erwarb  ich 
auch  erste  Basic-Kenntnisse. 
Mein  Beitritt  zu  einem 
Computer-Kurs,  der  nach¬ 
mittags  auf  freiwilliger  Basis 
ablief,  folgte.  Dieser  Kurs  en¬ 
dete  leider  nach  einem  hal¬ 
ben  Jahr  schon  wieder.  Zu¬ 
dem  zwang  mich  das  nahen¬ 
de  Abitur,  meine  Aktivitäten 
auf  andere  Gebiete  zu  verla¬ 
gern. 

Nun  bin  ich  seit  zehn  Mo¬ 
naten  bei  der  Bundeswehr 
und  seit  sieben  Monaten  stol¬ 
zer  Besitzer  eines  Commo- 
dore  64.  Da  ich  mich  beson¬ 
ders  für  Abenteuerspiele  in¬ 
teressiere,  wollte  ich  unbe¬ 
dingt  auch  selbst  einmal  ein 
solches  Spiel  schreiben. 

An  den  Abenteuerspielen, 
die  gelegentlich  in  Compu¬ 
terzeitungen  abgedruckt 
sind,  ärgerte  mich  immer, 
daß  man  schon  beim  Abtip¬ 
pen  des  Programms  unfrei¬ 
willig  Informationen  erhält, 
die  das  Lösen  des  Abenteu¬ 
erspiels  dann  oft  wesentlich 
vereinfachen.  Und  mit  einem 
Abenteuerspiel,  das  man 
einmal  gelöst  hat,  kann  man 
nicht  mehr  viel  anfangen. 
Deshalb  habe  ich  bei  mei¬ 
nem  Adventure  drei  ver¬ 
schiedene  Versionen  zur 
Auswahl  gestellt,  für  die  je¬ 
weils  ein  anderer  Lösungs¬ 
weg  gefunden  werden  muß. 
Zudem  macht  es  die  Art  der 
Befehlsauswertung  relativ 
schwer,  aus  dem  Listing  zu 
Informationen  über  den  Lö¬ 
sungsweg  zu  kommen. 
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C  64 


Abgerechnet  wird  mit  dem  C  64 

Programm,  mit  dem  Sie  Angebote  und  Rechnungen  betriebsindividuell  erstellen 
können.  Dann  sollten  Sie  sich  das  folgende  Programm  näher  ansehen. 


Dieses  Fakturierungs-  und 
Angebotsprogramm  ent¬ 
spricht  DIN  5001  und  ist  für  C 
64  und  Epson-Drucker  (mit 
Kreuzcodeinterface,  zum 
Beispiel:  WW  Typ  9200) 
oder  Typenradschreibma¬ 
schine  Brother  CE-60  bezie¬ 
hungsweise  CE-70  geschrie¬ 
ben.  Bei  Verwendung  der 
Schreibmaschine  müssen 
die  Steuercodes  für  die 
Druckersteuerung  entspre¬ 
chend  der  Interface-Be¬ 
triebsanleitung  (zum  Bei¬ 
spiel  Original-Interface  IF-50 
von  Brother  oder  WDT-Inter- 
face  von  Wicher  Digitaltech¬ 
nik)  abgeändert  werden.  Ei¬ 
ne  gedehnte  Schrift  ist  mit  ei¬ 
ner  Schreibmaschine  natür¬ 
lich  nicht  möglich. 

Allgemeine  Leistungen 
des  Programmes: 

—  vollkommen  büdschirm- 
orientierte  Programmfüh¬ 
rung 

—  flexibler  Umsatzsteuer- 
und  Skontosatz 
—  selbständige  Datumsein¬ 
fügung  für  sämtliche  Rech¬ 
nungen  oder  Angebote  des 
Tages 

—  korrekte  kaufmännische 
5/4-Rundung 

—  Eingabe  auch  negativer 
Beträge  (Gutschriften)  mit 
Ausweis  eines  negativen 
Vorzeichens 

—  Nullen- und  Dezimalpunkt¬ 
unterdrückung  bei  ganzen 
Stückeingaben 
—  Menüwahl  der  Arbeits¬ 
gänge  und  der  Adressenan¬ 
rede 

—  selbstständige  Absender¬ 
erstellung  im  Adressenfen¬ 
ster  des  Geschäftsbriefes 
—  Menüwahl  der  Zahlungs¬ 
bedingungen 

—  Korrekturmöglichkeit  vor 
jedem  neuen  Eingabeblock 
—  Ausgabe  von  deutschen 
Umlauten  auf  Monitor  und 
Drucker 

—  automatische  Einstellung 
des  Epson-Druckers  auf 
Groß-  und  Kleinschrift  und 
den  deutschen  Zeichensatz 
—  Menüwahl  einer  eventuell 
gewünschten  Quittierung 
(Barverkauf  oder  Nach¬ 
nahme) 


—  automatische  Formularer¬ 
stellung  und  Formatierung, 
beliebige  Anzahl  von  Kopien 

—  1  Zeile  (Angebot)  bezie¬ 
hungsweise  2  Zeilen  (Rech¬ 
nung)  frei  formulierbarer 
Text 

—  betriebswirtschaftlich  und 
steuerrechtlich  korrekte 
Umsatzsteuer-  und  Skonto¬ 
abrechnung 

—  beliebiger  Wechsel  zwi¬ 
schen  den  Arbeitsarten. 

Leider  hat  dieses  Pro¬ 
gramm  einen  kleinen  Nach¬ 
teil:  Aufgrund  der  Umlautge¬ 
nerierung  für  den  Monitor  (1. 
Block  der  4  Basic-Blöcke) 
bleibt  die  Dimensionierung 
der  maximal  pro  Arbeits¬ 
gang  auflistbaren  Artikel  auf 
20  beschränkt,  was  im  Nor¬ 
malfall  allerdings  in  dieser 
Praxis  ausreichen  dürfte.  Ei¬ 
ne  Compilierung  ist  wegen 
des  Speicherplatzangebotes 
(Runtime-Modul  würde  das 
Programm  auf  mehr  als  34 
Blocks  vergrößern)  eben¬ 
falls  nicht  möglich.  Wem  die 
noch  ganz  akzeptable  Ar¬ 
beitsgeschwindigkeit  (45  Se¬ 
kunden  für  Original  plus  Ko¬ 
pie  auf  Epson  FX  80)  nicht 
ausreicht,  hat  ja  die  Möglich¬ 
keit,  das  Programm  in  blitz¬ 
schnelles  Assembler  umzu¬ 
schreiben.  Derjenige,  der 
das  Programm  nicht  eintip¬ 
pen  möchte,  kann  von  mir  auf 
Bestellung  und  Übersen¬ 
dung  des  bisher  verwende¬ 
ten  Formulares  für  Rechnun¬ 
gen  und  Angebote  das  Pro¬ 
gramm  individuell  umge¬ 
schrieben  auf  Diskette  erhal¬ 
ten. 

Der  feine 
Unterschied 

Zum  Schluß  sei  noch  auf  ei¬ 
ne  wichtige  betriebswirt¬ 
schaftliche  Kleinigkeit  hin¬ 
gewiesen.  Im  Gegensatz  zu 
vielen  anderen  Fakturier¬ 
programmen  wird  die  je¬ 
weils  gültige  Mehrwertsteu¬ 
er  nicht  auch  noch  aus  einem 
eventuell  anfallenden  Porto 
berechnet,  da  Postgebühren 
umsatzsteuerfrei  sind.  Eben¬ 


so  bleibt  bei  der  Skontierung 
das  Porto  unberücksichtigt, 
denn  eine  Skontierung  be¬ 
dingt  in  der  Buchhaltung  im¬ 
mer  eine  Umsatzsteuerkor¬ 
rektur,  und  eine  Umsatzsteu¬ 
erkorrektur,  die  Umsatzsteu¬ 
er  aus  umsatzsteuerfreien 
Leistungen  korrigiert,  ist  bei 
einer  Betriebsprüfung  durch 
das  Finanzamt  im  besten  Fall 
peinlich.  Eine  langfristig  viel 
böser  ausgehende  Konse¬ 
quenz  aus  der  meist  falschen 
Skontoberechnung  ist  die 
Verfälschung  der  Kalkula¬ 
tionsfaktoren  oder  Hand¬ 
lungskostenzuschläge  durch 
den  Einfluß  des  Buchhal¬ 
tungskontos  »Kundenskonti« 
auf  die  Kostenrechnung.  Fol¬ 
ge:  Aufgrund  verfälschter 
Kalkulationsunterlagen  ent¬ 
stehen  unrealistische  Ver¬ 
kaufspreise, 

.  VU  .chließend  sei  noch  er¬ 
wähnt,  daß  die  Umlautgene¬ 
rierung  bei  Verwendung  ei¬ 
ner  80-Zeichen-Karte  (zum 
Beispiel  von  Roos)  mit  festem 
externen  Zeichensatz  zwar 
läuft,  aber  keine  Umlautdar¬ 
stellung  auf  dem  Monitor  zu¬ 
läßt.  (Gerhard  Schröter/rg) 

Lebenslauf 


Ich  bin  31  Jahre  alt,  Lehrer 
für  Betriebs-,  Volkswirtschaft 
und  Englisch  an  der  kauf¬ 
männischen  Schule  im  Be¬ 
rufsschulzentrum  in  Bibe- 
rach/Riß,  seit  Mitte  März 
1984  im  Besitz  eines  C  64 
nebst  Peripherie. 


Mein  Weg  zur  EDV: 

Seit  März  84  Teilnahme  an 
einer  Fortbildungsveranstal¬ 
tung  (zwei  Wochenstunden) 
auf  der  schuleigenen  Anla¬ 
ge  (Digital)  und  Anschaffung 
eines  C  64  zu  Übungs¬ 
zwecken. 

Hobby:  Übernachtungen  vor 
dem  Keyboard 

Zu r  Entstehungsgeschichte 
und  zur  Anwendung  des 
Programms: 

Wohl  so  mancher  Selbstän¬ 
dige  —  oder  besser  wohl 
mancher  Sohn  eines  Selb¬ 
ständigen  —  hat  zu  Hause  ei¬ 
nen  C  64  nebst  Peripherie 
stehen  und  nutzt  die  Anlage 
zu  allem  Möglichen,  nur 
nicht  zu  beruflichen 
Zwecken.  Die  Gründe  hier¬ 
für  sind  vielfältig:  Der  Sohn 
will  für  den  Vater  keine 
Rechnungen  oder  Angebote 
schreiben,  weil  dies  ja  ein 
glatter  Mißbrauch  der  Anla¬ 
ge  und  seiner  ohnehin  knap¬ 
pen  Freizeit  wäre.  Der  Vater 
würde  die  Anlage  schon  be¬ 
ruflich  nutzen,  aber  die  Fak¬ 
turierungsprogramme  sind 
nicht  ganz  ohne  jedes  Ver¬ 
ständnis  für  eine  EDV- 
Anlage  zu  handhaben.  Au¬ 
ßerdem  sind  gute  Fakturier¬ 
programme  auch  noch  teuer. 
Die  billigen  Fakturierungs¬ 
programme  dagegen  sind 
nicht  betriebsindividuell  ge¬ 
nug,  entsprechen  nicht  der 
DIN  5001  (Briefschreibe¬ 
norm)  oder  sind  betriebs¬ 
wirtschaftlich  oder  steuer¬ 
rechtlich  schlicht  unkorrekt. 
Fazit:  Die  von  manchem  in 
den  Homecomputer  gesetz¬ 
ten  Hoffnungen  werden  auf¬ 
gegeben,  und  Vati  tippt  sei¬ 
ne  Rechnungen  und  Ange¬ 
bote  in  zeitraubender  Arbeit 
und  unter  hohem  »Tip-Ex-Ver- 
brauch«  mühselig  in  die  mit 
teuren,  vorgedrückten  Form¬ 
blättern  gefütterte  Schreib¬ 
maschine.  Daß  es  auch  an¬ 
ders  geht,  versucht  das  vor¬ 
gestellte  Fakturierungspro- 
giamm  zu  zeigen. 

(Gerhard  Schröter/rg) 
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Programm  und  Erläuterung 
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Hinweise  für  die  Listingeingabe  (im  folgenden  sollen  einige 
gegeben  werden).  In  den  Zeilen  280  bis  320  und  in  der  Zeile 
2250  müssen  beim  Eingeben  des  Listings  Ihre  individuellen 
Angaben  eingesetzt  werden.  Sind  in  diesen  Eingaben  Umlaute 
enthalten,  so  müssen  diese  als  Grafikzeichen  (siehe  Tastatur¬ 
belegung)  programmiert  werden.  Verändern  Sie  auf  keinen  Fall 
die  Dimensionierung  in  Zeile  240! 

Zeile  240  Und  250: 

§  entspricht  dem  Kaufmanns-a  und  ü  der  rechten  Eckklammer. 
Zeile  320: 

Der  letzte  Buchstabe  Ihres  individuellen  Geschäftsortes  muß 
auf  Höhe  des  »t«  des  alten  Mustergeschäftsortes  kommen. 
Zeile  60400: 

ß  entspricht  dem  Potenzierungspfeil  (senkrechter  Pfeil). 


Tastaturbelegung: 

shift  /  + 

=  ß 

shift  /  linke  Eckklammer 

=  ö 

shift  /  rechte  Eckklammer 

=  ä 

Kaufmanns-a 

=  ü 

shift  /  Kleinerzeichen 

=  Ö 

shift  /  Größerzeichen 

=  Ä 

shift  /  Kaufmanns-a 

=  Ü 

Bedienu  ngshinweise: 

Nach  RUN  muß  wegen  der  Umlautgenerierung  bis  zum  ei¬ 
gentlichen  Programmbeginn  zirka  4  5  Sekunden  gewartet  wer¬ 
den.  Sämtliche  im  einmal  laufenden  Programm  erscheinenden 
j/n-Fragen  können  anstelle  von  »j«  für  ja  auch  mit  der  RETURN- 
Taste  beantwortet  werden;  dies  gilt  nicht  für  den  Eingabeblock 
»Anmerkungen«.  Werden  Anmerkungen  gewünscht,  so  sind 
diese — falls  sie  ein  Komma  enthalten  —  in  Anführungszeichen 
zu  setzen.  Die  Eingabe  des  Tagesdatums  sollte  wegen  der 
Bezugszeichen-Zeilenformatierung  immer  zehnstellig  in  Dezi¬ 
malform  (zum  Beispiel:  01.01.1984)  erfolgen.  Wenn  Sie  eine 
Typenrad-Schreibmaschinen  als  Ausgabeeinheit  verwenden, 
haben  Sie  den  linken  und  rechten  Rand  von  Hand  einzustellen 
—  korrigieren  Sie  dann  auch  wegen  des  Walzenschlupfes  ge¬ 
legentlich  die  Papierführung  des  Endlospapieres.  Sollten  Sie 
einmal  nach  dem  ersten  RUN  kein  befriedigendes  Cursorzei¬ 
chen  erhalten,  dann  schalten  Sie  Ihren  C  64  ab  und  laden 
nochmals. 


Variablenliste  (in  der  Reihenfolge  des  erstmaligen 

Vorkommens) 

i 

=  Zählergröße 

a 

=  Datagröße 

an$ 

=  Artikelname 

m 

=  Artikelmenge 

P 

=  Artikeleinzelpreis 

1$ 

=  Text  (auch  h$,  k$,  f$,  ff$,  fo$,  fb$,  bz$,  g$) 

wt$ 

=  Übergabe-  und  Rückgabevariable  fürText- 
formatieruns-  und  Umlautunterprogramm 

d$ 

=  Datum 

sn 

=  Skonto 

j$ 

=  j/n-Sicherheitsabfrage 

a 

=  Aufgabenart 

Xl$ 

=  Text  (bis  c6$) 

ar 

=  Anredewahl  (ar$= Anredeart) 

V 

=  Index  für  Artikel 

vp 

=  Verpackungskosten 

f 

=  Versandkosten 

n$ 

=  Empfängername 

s$ 

=  Straße 

0$ 

=  Ort 

iz$ 

=  Bezugszeichenzeileninhalt  (auch  in$,  uz$, 
un$) 

10$ 

=  Formgröße  (auch  11$,  12$,  13$,  14$) 

za 

=  Zahlungsartwahl 

a$ 

=  Anmerkungenwahl 

al$ 

=  Anmerkung  (auch  a2$  und  a6$) 

ak 

=  Kopienanzahl 

tl 

=  maximale  Textlänge 

tx$ 

=  Übergabevariable  für  Text 

vk 

=  Vorkommastellen 

nk 

=  Nachkommastellen 

u$ 

=  Vor-  und  Nachkommastellen 

ux 

=  Übergabevariable 

Zeilen 

Zeile  10  bis  230 

Bedeutung 

:  Einstellung  des  Computers  auf 
Groß-/Kleinschrift  und  Generie¬ 
rung  der  Umlaute  in  Block  1 
der  insgesamt  vier  Basic- 
blöcke 

Zent  240  bis  350 

:  Variablendimensionierung,  Defi¬ 
nition  von  Standardtext  mit 
Sprung  ins  Unterprogramm  zur 
Umlautwandlung  für  die 
Druckerausgabe 

Zeile  620  bis  670 

:  Festlegung  von  sich  am  jeweili¬ 
gen  Arbeitstag  nicht  ändern¬ 
den  Größen  wie  zum  Beispiel 
dem  Datum.  Ende  des  »Vor¬ 
programms«  —  wird  bis  zum 
neuerlichen  Lagen  des  Pro¬ 
grammes  nicht  mehr  berührt 

Zeile  680  bis  840 

:  Menüs  zur  Wahl  der  Arbeits¬ 
art,  der  Anrede  und  entspre¬ 
chende  Definition  von  Varia¬ 
blen 

Zeile  850  bis  910 

:  Eingabeblock  »Empfänger«  mit 
Sprung  in  die  Umlautwandlung 
und  Sicherheitsabfrage 

Zeile  920  bis  1000 

:  Eingabeblock  »Bezugszeichen¬ 
zeile«  mit  Umlautwandlung  und 
Definition  von  Formstandards 

Zeile  1010  bis  1110 

:  Eingabeblock  »Artikel,  Men¬ 
gen,  Preise«  mit  Variablen¬ 
indizierung  durch  Zähler 

Zeile  1120  bis  1210 

:  Eingabeblöcke  »Zahlungsart« 
und  »Nebenkosten« 

Zeile  1220  bis  1295 

:  Eingabeblöcke  »Anmerkun¬ 
gen«,  aufgeteilt  nach  Arbeitsart 
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Zeile  1300  bis  1315  : 

Eingabeblock  »Anzahl  der  Ko¬ 
pien« 

Zeile  1320  bis  2370  : 

Erstellung  der  Erstschrift  mit 
Rechenteilen,  Sprünge  in  För- 
matierungsprogramme  und 
Standardtexten 

Zeile  2380  bis  2490  : 

Kopierschleife  und  Eingabe¬ 
blöcke  zum  weiteren  Arbeits¬ 
ablauf  mit  Rücksprunganwei¬ 
sung  zum  Hauptprogrammbe¬ 
ginn  beziehungsweise  zum 
Hauptprogrammende 

Zeile  40100  : 

Unterprogramm  Textformatie¬ 
rung 

Zeile  45000  bis  45110  : 

Unterprogramm  Umlautwand¬ 
lung  für  Drucker 

Zeile  50100  bis  50300  : 

Unterprogramm  Zahlenforma¬ 
tierung  mit  Nullen-  und  Dezi¬ 
malpunktunterdrückung  (falls 
Dezimalwert  erscheint,  wird 
der  Dezimalpunkt  doch  ausge¬ 
wiesen) 

Zeile  60100  bis  61500  : 

Unterprogramm  Zahlenforma¬ 
tierung  mit  permanenter 
Dezimalpunkt-  und  Nullen¬ 
ausgabe 

Programmbeschreibung  nach  Zeilennummern 


ABELE  Sc  BEBELE  OHG  To;-:  t  i  X  v ö» 

Postfach  I  23,  9870  Abcstadt  6,  Tel.:  09999/ 12T-4567 

Bankkonto:  Kreissparkaase  Abcstadt  (BLZ  654  500  70)  Nr.  239  699 


MELE  i  KKIE  OHG,  f-ostlich  1  23,  9870  ftbcstidt  h 


Herr 

Gerhard  Schröter 
SchieBhiittenweg  1 

7951  Ingoldingen  1 


Ihre  Zeichen  u.  Nachricht,  unsere  Zeichen  u.  Nachricht 
GS  15.06. B4  AB/2/vk 


An  gebot: 


Abcstadt 
03.07. 1984 


Angebotsnummer : 11-7-84 

Anqebotsdatum  :Ö3.07. 1984 


Sehr  geehrte  Damen  und  Herren, 

aufgrund  Ihrer  Anfrage  bieten  wir  Ihnfen  folgende  Artikel  an: 
Artikelname  od.  Leistung  Einheiten  Prei s/El nhei t  Besamtprei s/DM 


Wintsrrmantel  ''Taiga*' 
Skipulli  '  'Arlberg" 

Herrenhose 

Summe,  Nettawarenwert: 
Verpackung /Fracht: 
Gesamtpreis  ex kl.  Mwst.: 
+  14  7.  gesetzl.  Mws*. : 
Versandkosten  (Porti): 

Gesamtpreis/DM:  >»»> 


510.00 
123. OO 
89.00 


510.00 

123.00 

89.00 

722.00 

0.00 

722.00 

101.08 

0.00 


823.  08 


Zahlbar  innerhalb  30  Tage,  netto,  oder  innerhalb  von  10  Tagen 
mit  2.5  7.  Skontoabxug  (20.58  DH). 

Angebot  freibleibend? 

Wir  bitten  um  Ihren  Auftrag  und  sichern  Ihnen  sorgfältige  Ausführung 
zu. 

Mit  freundlichen  Grüssen 
ABELE  it  BEBELE  OHG 


Eine  Musterrechnung 

70 


Listing  »Fakten  64«  (Anfang).  Die  Zeile  750  ist  durch  fol¬ 
gende  Statements  zu  ergänzen:  ww$  =  ””:VU$=”  ” 

10  printchr^ <147) : pri nt ehr#  < 14) : printehr 

*  (B> 

15  print"  *************** 

*  *  *  *  " 

20  print"  * 


25  print"  * 
*  " 

30  print"  * 
*  " 

35  print"  * 
* 

40  print"  * 


F  A  K  T  A  N  C— 64 

(C. )  by  Gerhard  Schroeter 
Tel . : 07355/1285 


#  *  *  ■* 


-****-**•*■#■** 


55  print" 

*  " 

60  print" 

*  *  *  *  " 

70  print :  print:  print "  Guten  Tag  !  11 :  print : 
print"  Bitte  warten  Sie print: print 
90  printchr* (32)chr* (91)chr* <60> ,chr$(93 
) chr$ (62) ,chr$ (64) ehr? ( 186) ,chr$ (123) 

95  poke52,48: poke56 , 48: cl r : poke56334 , pee 
k (56334) and254: pokel , peek ( 1 ) and 251 
100  -f  ori  =0to  1023s  pakei +  12288, peek  (i+2048 
+53248) :next 

110  -f  ar i  =0ta7 :  reada:  pokel 2288+ i  , a:  next 
120  Tori =0ta7 : reada: poke 12238+ 122*8+ i ,a: 
next 

13£e  ori=0to7 : reada: pokel22S8+27*8+i ,a: n 
ext 

140  Tori=0to7: reada: pokel228S+60*8+i ,a:  n 
ext 

150  Tori=0to7:pokel2288+29*8+i , peek <5324 
8+2048+8+i ) : next 
160  pokel22S8+29*B+l , 102 

170  Tori=0to7: reada: pokel2288+62*8+i ,a:n 
ext 

180  Tori =0to7: reada: pokel22B8+91*8+i Ta:n 
ext 

190  pokel , peek ( 1 ) or4: poke56334 .peek (5633 
4)  or  1 

200  poke53272 , (peek (53272) and240) +12 
210  data0,0, 102,0, 102, 102,60,0,102,0, 102 
, 102,102, 102,60,0 

220  data0,0, 102,60, 102, 102,60,0, 102,60,1 
02, 102, 102,102,60,0 

230  data 102 , 0 , 60 , 102 , 126 , 102 , 102 ,0,0, 56 , 
108,120,108,108,120,96 

240  di  man:t  (20)  :  di  mm  (20)  :  di  mp  (20)  :  1  $=Mzu. 
" : h$="Mi t  Treundlichen  Gr ‘ ssen " 

250  k$="Wir  bitten  um  Ihren  AuTtrag  und 
sichern  Ihnen  sorgfältige  flusf ’hrung" 

260  wt$=kf : gosub45000: k$=wt$: wt$=h$:  gesu 
645000:  h£=wt* 

280  f$=" ABELE  &  BEBELE  OHG  Textil  versa 
nd"  :g$="ABELE  &  BEBELE  OHG" 

290  f f $="ABELE  &  BEBELE  OHG,  Postfach  1 
23,  9870  Abcstadt  6" 

300  f at="Postf ach  1  23,  9870  Abcstadt  6, 
Tel.:  09999/1234567" 

310  f b$="Bankkonto:  Kreissparkasse  Abcst 
adt  (BLZ  654  500  70)  Nr.  239  699" 

320  bzT-="Ihre  Zeichen  u.  Nachricht,  unse 
re  Zeichen  u.  Nachricht  Abcstadt" 

330  wtt-=f T-:  gosub45000:  f $=wt$ :  wt$=g$:  gosu 
b45000:g$=wt$ 

340  wt$=TT iz  gosub45ÖÖÖ:  TT$=wt$:  wt$=f o$:  g 
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osub 45000: f o*=wt* 

350  wt*=f  b*:  gosub45000: f b*=wt*:  wt*=bz*:  g 
osub45000: bz*=wt*: printchr* ( 147) 

620  input"  Heutiges  Datum  :  " :d*:prin 

t:input"  Mehrwertsteuersatz :  ";t: print 
640  input"  Skontosatz  :  " ;sn:prin 

t: print : j*="  j " 

650  input"  Alles  richtig  (j/n)  :  ";j*:if 

,  j  *= " " or  j*=  "  j " then680 

670  if j*="n"thenprintchr* < 147) : goto620 
680  printchr* (147) : print"  Aufgabe:  Rechn 
ung  schreiben  =  l":a=0 

690  print sprint"  Angebot  schrei 

ben  =  2" sprint 

700  input"  Aufgabenart  1  oder  2 

:  " ; a: print: if a<lora>2then680 
712  if a=lthenxl*="Rechnung" : x2*="Rechnun 
gsnummer: " : K3$="Rechnungsdatum  : " 

720  if a=2thenxl*=" Angebot":  x2*="Angebots 
nummer: " : x3*=" Angebotsdatum  : " 

730  if a=2thenx4*="Sehr  geehrte  Damen  und 
Herren , " 

735  if a=2thenx5*="auf grund  Ihrer  Anfrage 
bieten  wir  Ihnen  folgende  Artikel  an:" 
740  printchr* (147) : n*=" " : s*=" " : o*=" " : nr* 
="  ": iz*="  ": in*="  ":uz$="  ":un*="  ":v=0 
750  vp=0: f =0 

770  print"  Anrede:  Firma  =  l":p 

rint"  Herr  =  2" 

790  print"  Frau  =  3":p 

rint 

800  ar=0: input"  Anredewahl  1  bis  3  : " 

; ar : if ar< lorar >3then740 
820  if ar=lthenar*="Firma" 

830  if ar=2thenar*="Herr " 

840  if ar=3thenari="Frau" 

850  print: print: input "  Empf aengername  : 

" ; n$: print : wti=ni: gosub 45000 : n$=wt$ 

860  input"  Strasse  u.  Nr.  :  "; s*: print: w 
t*=s*: gosub45000: s*=wt* 

870  input"  PLZ  und  Ort  :  o*: print: w 

t*-=o*: gosub45000: o*=wt* 

875  i f a=2theni nput "  Angebotsnummer  :  " ;n 

r*: print: print: goto890 

880  input"  Rechnungsnummer :  ";nrt:print: 
print 

890  j*="  j  "  :  i  nput "  Alles  richtig  (j/n)  : 

" ; j  * : i f  j  *= " " or  j  * = " j " t hen 920 
910  i f j*="n "thenprintchr* ( 147) :gato740 
920  printchr*  ( 147)  :  input "  Ihre  Zeichen 
:  ";iz*:print 

925  wt*=iz*:gosub45000:  iz*=wt* 

930  input"  Ihre  Nachricht  :  ";in*:pr 

i nt : wt*=i n*: gosub45000: i n$=wti 
940  input"  unsere  Zeichen  :  ";uz*:pr 

int: wt*=uz  * : gosub 45000: uz$=wt? 

950  input"  unsere  Nachricht  :  ";un$:pr 
int:  print:  wt$=un$:  gosub45000;  un$=wtt- 
960  j*="j": input"  Alles  richtig  <j/n)  : 

"  ;  j*:  if  j*="  "or  j*="  j  ”then980 
970  if j*="n"then920 

980  10*="Arti kelname  od.  Leistung  Einh 
eiten  Preis/Einheit  Gesamtpreis/DM" 
985  11*=" - 

_ II 

990  12*=" - 

995  13*="  _ ; _ .. 

1000  14*=" 


1010  v=v+l 

1015  an*=" " : m=0: p=0: printchr* (147) : input 
"  Artikel/Leistung  :  ";an*:print 
1020  wt*=an*: gasub45Q00: an*=wt* 

1030  input"  Menge  :  ";m:print 

1040  input"  Einzelpreis  :  ";p:print 

: print 

1045  an* (v) =an*: m (v) =m: p (v)=p: j*=" j " :  inp 
ut"  Alles  richtig  (j/n)  :  ";j*:print 
1060  if j*=" "or j*=" j "then 1090 
1070  if j*="n" thenl015 

1090  j*="" : print : input"  Weitere  Artikel 
(j/n)  :  ";j*:print 

1 100  if j*=" "or j*=" j "thenlOlO 
1110  if j*="n" thenpri nt ehr* (147) : print 
1120  input"  Oerpackungskosten/Fracht  :  " 
; vp: pri nt 

1130  input"  Oersandkasten  (Parti)  :  " 

; f : print 

1132  j*=" j ": input"  Alles  richtig  (j/n) 

:  j*: print: ifj*=" "ar j*=" j "then 1 135 

1 133  if  j*="n" thenpri nt ehr* (147) : gotal 120 
1135  if a=2thenza=2: gatol220 
I 140  printchr* (147) : print"  Zahlungsart: 
Barverkauf  =  1" 

1150  print"  Ziel  =  2" 

1160  print"  Nachnahme  =  3" 

1170  za=0: print: input"  Zahlungsart  1  b 
is  3  :  za: print ; print 

1 180  if za< lorza>3thenpr intchr* ( 147) :prin 
t : gatal 140 

1190  j*="j": input"  Alles  richtig  (  j  / 
«"NP)  :  ";j*:  print 

1 200  i f  j *= " j " or  j *= " " then 1 220 
1210  if j*="n"thenprintchr* (147) :print:ga 
tal 140 

1220  ifa=2 then 1270 

1225  pr i nt ehr * ( 147) : print : a*="n " : i nput " 
Anmerkungen  (j/n)  :  ";a*: print 
1228  al*=" " : a2*=" " 

1230  if a*=" j"thenpr int: gatal240 
1235  if a*=" "ara*="n" then 1300 
1240  print"  ACHTUNG  max .  je  der  2  Doppel 
zeilen  bis  zum  Sternchen  schreiben!  *" 
1245  print: inputal*: print: inputa2*s  print 
1247  wt*=al*: gosub45000: al*=wt*: wt*=a2*: 
gosub 45000: a2*=wt* 

1250  i*=" j " : input"  Alles  richtig  (j/n)  : 
" ;  i  * 

1 255  i f i *= " " or i *= " j " then 1 300 
1260  if i*="n"thenl225 

1270  printchr* (147) sprint: a*="n" : input" 
Anmerkung  (j/n)  :  a*: print : a6*=" " 

1275  if  a*-="  j"  thenpri  nt:  gotol285 
1280  i f a*= " " or a*= " n " then 1 300 
1285  print"  ACHTUNG  in  der  Doppelzeile  n 
ur  bis  zum  Sternchen  schreiben!  *" 

1290  print: inputa6*: wt*=a6*: gasub45000:a 
6*=wt*: i*=" " 

1291  printsinput"  Alles  richtig  (j/n)  : 

"  ;  i  * 

1 292  i f i *= " " or i *= " j " t hen 1 300 
1295  if i*="n"thenl270 
1300  printchr* ( 147) : print: print 
1310  input"  Anzahl  der  Kopien  :  ";ak:pri 
nt 

1315  print: print"  Bitte  warten  Sie  ! " 
1320  open 1,4, 7 

1330  print#l ,chr* (27) ; ehr* (114) ; ehr* (2) ; 
:print#l,chr*(27)  ;  ehr*  (76)  ;chr*’(9>  ;  :s=0 

Listing  »Faktan  64«  (Fortsetzung) 
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1390  print#l  .ehr*  (27)  ;chr$  (119)  ;chr$(l)  ; 
:print#i .f  $ 

1410  pri nt# 1 ,  ehr $(27) ; ehrt- ( 1 19) ;chr$(0) ; 
:print#l ,f o$:print#l ,f b$ 

14B0  print#l ,chr$ (27) ; chr$ (33) ; chr$ (4) ; : 
print#l  ,chr$-  (27) ; chr$ (45) ;chr$( 1) ; 

1500  print#l :  print#l :  pri nt# 1  s  print#l ,ff $ 
1510  pri nt#l  ,chr$  (27.)  ;  chr$  (45) ;  ehr*  (0)  ;  : 
pr i nt#l ,chr$  (27)  ;  ehr#  (33)  ;  ehrt-  (0) ; 

1530  print#l:print#l:print#l ,ar$ 

1580  pri  nt#l  ,  n$:  pr i nt#l ,  st:  pr i nt#l :  print 

#1 ,a$:print#l: pri nt #1: pri nt# 1 

1590  printttl :  print#!  ,bz$:  tl=16:  tx$=iz$:  g 

O5ub40100: tl=l 1 : tx$=i n$: aosub40100 

1670  tl=18:  tx$=uz$:  gosub40100:  tl  =  13:  tx$= 
un$:  gosub4010Q:  tl  =1 1 :  tx$=d$: gosub4010G 
1710  pr i nt#l : pr i nt#l : pri nt#l ,chr$ (27) ; eh 
r$(119) ; chr$ (1 ) ; : print#l ,x 1$ 

1720  print#l,chr$(27)  ;chr$  (119)  ;  ehr*  (0)  : 
pri  nt#l  ,x2$ ;  nr$:  pri  nt#l ,  x3$;  d$ 

1730  i-f  a=2thenpr  i  nt#l : print#l :  print#!  ,:<4 
$:print#l:print#l ,k5$: print#! : goto 1770 
1740  printttl :  printttl :  printttl ,  "Wir  lie-fer 
ten  Ihnen:  " 

1770  print#l:print#l,10t:print#l ,1 l$:tl= 
26:  vk=6:  nk=2:  u$="  13.  2,! :  n=  (v)-kz 
1800  forv=ltan:  tx$=an$-  (v)  :  gosub40100 
1030  zx=m (v) : gosub50100: ux=p (v) : gosub601 
00:  g=m  ( v)  -*p  ( v)  :  u;<=g :  gosub60100:  s=s+g 
1880  print#l , :  nextv:  i  -f  v=nthen  1900 
1900  printttl  ,12$:  tl =30 : u$="35. 2" : tx$="Su 
mme,  Nettawarenwert : ":gosub40100 
1930  ux=s:  gosub60100:  print#l , :  tx$="Verpa 
ckung /Fracht : ” : gosub40100 
1960  ux=vp:gasub60l0G: print#! . : gp=s+vp: t 
xS^" Gesamt preis  e:<kl .  Mwst.:" 

2000  gosub40100:ux=gp:  gosub60100:  pri  nt#l 
, : mw= (gp*t ) / 100 

2030  t2$=str$  (t)  :  tl$=!,  +  "+t2$+”  7.  gesetzl 
.  Mwst. : " : tx$=t 1$: gosub40100: ux=mw 
2050  gosub60100: pr i nt#l , : tx$=Myersandkos 
ten  (Porti ):": gosub40100 
2055  ux=-f :  gosub 60100 

2090  pri nt# 1 , : pri nt #1 , 13$: ge=gp+mw+f : tx$ 
—  " Gesainlpr  eis/DM:  >>>>>>"  :  gasub401OO 
2130  ux=qe: gosub60100: print#! , :print#l , 1 
4$: pri nt# 1 : pri nt# 1 

2160  sk= (gp+mw) * (sn/ 100) : so=i nt (sk*100+0 
.5)/100:  i -f  so=Öthenso$=  "00 " 

2180  if so>lthenso$=str$ (so) : sa$=r i ght$ (s 
o$ , 1 en ( sa$ ) — 1 ) 

2190  i-f  so<  ithensa$=str$  (so)  :  so$="0"+r i gh 
t$ (so$, len (sol) -1 ) 

2192  if a-1 then2200 
2195  i f a=2then2260 
2200  if za=0then2350 
2210  if za=lthen2240 
2220  if za=2then2260 

2230  if za=3then22G0 

2240  print#l , "Betrag  erhalten. print#l 
2250  print#l , "Abcstadt ,  den 

. " : goto2290 

2260  print#l , "Zahlbar  innerhalb  30  Tage, 
netto,  oder  innerhalb  von  IO  Tagen" 

2270  print#l ,  "mit " ;  sn;  Skantaabzug  (  "  ; 
sol ; "  DM ) . " : got o2290 

2280  printttl , "Betrag  durch  Nachnahme  erh 
alten. " : goto2290 
2290  if a=lthen2300 


2296  if a$=" j " then2335 
2300  if a$="n "then2350 

2320  print#l:print#l  , al$: print#l  ,  a2$- :  got 
a2350 

2335  print#l : print#l ,a6$ 

2340  pri nt #1 : pri nt# 1 , k$: pri nt# 1 , 1$: print 
#l:print#l,h$:print#l:print#l,g$ 

2350  pri nt# 1 ,  chr$ (12) ; 

2360  i f ak  >0then23B0 
2370  i f  ak— Othen2424 

2380  f orc=ltoak: kz=x+l : ak=ak— 1 : gp=0: goto 
1330: nexte 

2424  if a=lthen2430 

2425  i f a=2thenpr i ntchr$ ( 147) : pr i nt : i nput 
"  Weitere  Angebote  (j/n)  :  ";wa$: print 

2426  ifwa$=" "orwa$=" j "thenclosel :goto740 

2427  i fwa$=" n " then2460 

2430  printchr$ ( 147) : print: input"  Weitere 
Rechnungen  (j/n)  :  ";wr$:print 

2440  if wr$=" j "orwr$=" "thenclosel : goto740 
2450  ifwr$="n "then2460 

2460  pri nt# 1 , chr$ (27) ; chr$ (64) ; :closel 
2470  print:print: input"  Weitere  Arbeiten 
(j/n)  :  " ; j$: if j$=" ”or j$=" j "then6B0 

2490  if j$="n"thenprintchr$ ( 147) : end 
40100  tx=len  (tx$)  :print#l  ,tx$;taü  (tl-tx) 
; : return 

45000  forl=ltolen (wt$) : vu$=mi d$ ( wt$ , 1 ,1) 
45020  if vu$=chr$ (219) thenvu$=chr$ (94) 
45030  if vu$=chr$ (64) thenvu$=chr$ (93) : got 
045090 

45r>40  if vu$=chr$ ( 186) thenvu$=chr$ ( 125) 
45v--w  )  ifvu$=chr$  (91 )  thenvu$=chr$  (92) 
45060  ifvu$=chr$ (60) thenvu$=chr$ ( 124) 
45070  if vu$=chr$ (93) thenvu$=chr$ (91) 
45080  i f  vu$=chr$  (62)  thenvu$=chr$  (123) 
45090  ww$=ww$+vu$ 

45100  ifvu$=chr$ (93) thenvu$=" " : goto45040 
451 10  nextl : wt$=ww$: ww$=" " : return 
50100  zx=int (zx* 100+0. 5) / 100: zx$=str$ (zx 
) 

50200  zl=len(zx$) : zu=0: f orzn=ltozl : if mid 
$(zx$,zn, 1 ) =" . "goto50400 
50300  zu=zu+l : nextzn 

50400  printttl , tab (vk— zu) ;zx; tab ( (nk+vk) — 
(vk-zu+zl ) +1 ) ; : return 

60100  uv$=ri ght$ (u$ , 1 ) :ul=int (val (u$> ):i 
fvu$< >" . "thenur=val (uv$) : goto60400 
60300  ua$=str$ (sgn (ux ) *int (abs (ux )))+"." 
: ub$= " " : ul =ul + 1 : goto  61300 

60400  ul=i nt (val (u$) ) : ux$=5tr$ (sgn (ux ) * ( 
int (abs (ux ) *10ßur+. 5) > /10ßur) 

60600  uv=0: f orun=ltolen (ux$) : if mid$(ux$, 
un , 1 ) =" . "thenuv=un 
60650  nextun 

60700  if  uv=0  then  uv=un: ux$=ux$+" . " 
60900  if  uv<  >2  then  61100 

61000  ux$=le-ft$(ux$,l)+"0"+right$(ux$,le 
n (ux$) -1 ) : ul=ul-l : ur=ur+l 

61100  ub$=mid$  (ux$,uv,  len  (ux$)  -fl)  +"00000 
0000" 

61200  ub$-=lef  t$ (ub$ , ur+1 )  :  ua$=l  ef  t$  (ux$  , 
uv— 1 ) 

61300  if  len(ua$) >ul  then  pr i nt " usi ngber 
eich  zu  klein":stop 

61400  if  len(ua$Xul  then  ua$="  "+ua$:go 
to  61400 

61500  printttl, (ua$+ub$); :return 
ready. 


2294  if a$="n " then2340 
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Anmerkung:  Da  die  Unterprogramme  mit  Übergabevariablen 
aus  dem  Hauptprogramm  (zum  Beispiel  wt$  oder  tx$)  versorgt 
werden  und  die  Arbeitsvariablen  der  Unterprogramme,  wie 
zum  Beispiel  tl  (Textlänge),  vk  (Vorkommastellen),  nk  (Nach¬ 
kommastellen)  oder  u$  (Vor-  und  Nachkommastellen  bei 
Dezimalpunkt-  und  Nullenausgabe),  im  Hauptprogramm  (siehe 
zum  Beispiel  Zeile  1770)  beliebig  definiert  werden  können, 
lassen  sich  diese  als  Bausteine  für  andere  Programme  nutzen. 


Änderungen  bei  Verwendung  einer  Typenradschreib¬ 
maschine 

Brother  CE-60/CE-70, 

Privileg  P  6000, 

Schweiz:  Migro-Office, 
auch:  CE-50  m.  IF-An., 

ebenso:  Schönschreibdrucker  Brother  EM-80/1 00/200 
Bei  Verwendung  eines  Schönschreibdruckers  bezie¬ 
hungsweise  einer  Typenradmaschine  von  Brother  zusam¬ 
men  mit  dem  WDT-Interface  (Wicher  Digital  Technik,  Flörs¬ 
bachtal,  baugleich  mit  Quelle  und  Neckermann)  sind  fol¬ 
gende  Änderungen  im  Listing  notwendig: 

1310  input"  Anzahl  der  Kopien  :  ";afc:print 

1311  print:print"  Bitte  warten  Sie  !“ 

1312  bl=30:i-fa=2anda*=" j"thenbl  =  lB 

1313  i-f  a=2anda*="n"thenbl=20 

1314  i  4a=2thena>:=2:  gotol319 

1315  if za=lthenht=3 

1316  i-fza=2thonht=2 

1317  i-f’a=3thenht=l 

1318  aü=0:  H  a*="  j''thenax=3:gotol319 

1319  z=bl -ht-ax- <v) 

1320  open  1 ,4,7 

1330  s=0:printH!  :  pri  nt#l  ,-f  o*:pr  1  nt#l ,  f  b* 

1480  pri nt Hl ,chrl (30) ; :print#l ,chr*<6> ; 

1500  pri  nt  Hl :  pr  i  nt  Hl :  printHl :  pr  i  ntHl  ,-f  f* 

1510  printHl ,chr*(25) ; :print#l ,chr*<7> j 
1530  printHl : pr intH 1 : printHl ,arl 
ready. 

17)0  printHl: printHl: printHl ,« lt: printHl 
1720  printHl , x2*; nr*: pr i nt#l , x3*j d* 
ready. 

2350  f orq=ltoz : printHl : nextq 
ready. 

1480  printHl ,cbr* (27) ; ehr* <31 ) 5  ehr* (9) j 

: printHl ,chr  * (27) ;chr*<69> ; 

ready. 

1510  printHl , ehr* (27 ) ; ehr*  <31 ) ) ehr* (13) ; 

: printHl ,chr*<27) ;chr*(B2)  ; 
ready. 

Automatischer  Seitenvorschub,  komprimierte  Schrift 
und  automatische  Unterstreichung 


45000  f orl=I tolen( wt$ ) 

45010  vu$=mid$ ( wt$ , 1 , 1 ) 

45020  ifvu$=chr$(219)thenvu$=chr$(190) 
45030  ifvu$=chr$(64)thenvu$=chr$(189) 
45040  ifvu$=chr$(186)thenvu$=chr$(221) 
45050  ifvu$=chr$(91)thenVu$=chr$(188) 
45060  ifvu$=chr$(60)thenvu$=chr$(220) 
45070  ifvu$=chr$(93)thenvu$=chr$(187) 
45080  ifvu$  =  chr$(62)thenv.u$  =  chr$(219) 
45090  ww$=ww$+vu$ 

45100  nextl:wt$=ww$:ww$="":return 
(45110  entfällt) 


Zusatzänderung  bei  Verwendung  des  Original -Interface 
Brother  IF-50 


Kopplung 
über  den 
User-Port 

In  der  letzten  Ausgabe  brachten  wir 
zwei  VC  20  dazu,  gegeneinander  zu 
spielen.  Nun  lassen  wir  zwei  C  64,  oder 
einen  VC  20  und  einen  C  64,  Daten  oh¬ 
ne  jegliches  Interface  über  den  User- 
Port  austauschen. 

Seit  einigen  Monaten  betreibe  ich  zwei  gekoppelte  C  64,  die 
sich  zu  meiner  vollen  Zufriedenheit  die  Befehle  eines  fünfstim¬ 
miger  7  'nthesizer-Programms  teilen.  Während  es  für  meine 
speziellen  Anforderungen  bereits  genügt,  ein  einzelnes  Byte 
rasch  zu  transportieren,  können  die  vorhandenen  Routinen  oh¬ 
ne  viel  Mühe  so  erweitert  werden,  daß  man 

a)  Basicprogramme 

b)  Variablen, 

c)  Arrays  und 

d)  Maschinenprogramme  überträgt  und  gegebenenfalls  aus¬ 
führt. 

In  diesem  Artikel  erläutere  ich  Ihnen  die  Grundroutinen  an¬ 
hand  der  Basicprogrammübertragung. 

Neben  der  eingebauten  seriellen  Schnittstelle  hat  der  C  64 
wie  alle  Computer  von  Commodore  einen  programmierbaren 
User-Port,  der  eine  Verbindung  nach  »draußen«  darstellt  und 
entsprechend  genutzt  werden  kann.  Die  Adresse  des  User- 
Ports  liegt  beim  C  64  auf  56577  ($dd01).  Eine  Abfrage  mit 
PEEK  (56577)  zeigt  den  Wert  255.  Ein  POKE-Befehl  ändert 
daran  nichts,  weil  das  Betriebssystem  beim  Initialisieren  den 
User-Port  als  Eingang  definiert  und  sich  unbeschaltete  Eingän¬ 
ge  als  logisch  »1«  verhalten.  Bevor  man  den  User-Port  als  Aus¬ 
gang  definiert,  müssen  einige  Sicherheitsvorkehrungen  ge¬ 
troffen  werden,  denn  der  User-Port  des  einen  Computers  wird 
Draht  für  Draht  mit  dem  des  anderen  verbunden.  Dabei  darf  im¬ 
mer  nur  ein  Computer  den  User-Port  als  Ausgang  betreiben, 
sonst  kommt  es  zur  Zerstörung  der  Port-Bausteine.  Die  Adres¬ 
se  des  Richtungsregisters  ist  56579  ($dd03).  In  diesem  Regi¬ 
ster  definiert  ein  gesetztes  Bit  das  entsprechende  User-Bit  als 
Ausgang.  Dadurch  wird  ein  gemischter  Betrieb  möglich,  der  in 
meinem  Programm  jedoch  nicht  vorkommt. 

Als  Voraussetzung  muß  eine  physikalische  Verbindung  in 
Form  von  Drähten  und  zwei  User-Port-Steckern  geschaffen 
werden. 

Es  sind  insgesamt  11  Drähte,  welche  die  beiden  Computer 
verbinden.  Ich  habe  die  Verbindung  mit  einer  4  m  langen,  sorg¬ 
fältig  verlöteten  Flachleitung  realisiert  und  bisher  keine  Stö¬ 
rung  bemerkt. 
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Auf  Seite  1 43  des  C  64  Handbuchs  ist  die  Kontaktbelegung 
des  User- Port-Steckers  aufgeführt. 

Die  Daten-Bit-Kontakte  PBO  bis  PB7  liegen  genau  in  der  Mit¬ 
te  des  Steckers  und  werden  »Bit  für  Bit«  verbunden,  also  »C« 
an  »C«,  »D«  an  »D«  und  so  weiter. 

Auch  die  Masse-Leitungen  »A«  werden  miteinander  verbun¬ 
den. 

Die  beiden  übrigen  Kontakte  »B«  und  »M«  werden  gekreuzt, 
so  daß  »B«  mit  »M«  verbunden  ist  und  umgekehrt. 

Das  Programm  ist  ausführlich  erklärt.  Eine  Besonderheit  ist 
die  Speicherbereichswahl.  Jeder  Autor  glaubt,  der  $c-Block 
sei  ganz  frei  und  warte  auf  genau  sein  Programm. 

Um  hier  eine  bequeme  Übernahmemöglichkeit  in  eigene 
Routinen  zu  bieten,  lädt  sich  der  Maschinenteil  des  Pro¬ 
gramms  an  das  obere  verfügbare  RAM-Ende,  schützt  das 
Segment  vor  den  Strings  und  löscht  sich  letztlich  selbst.  Die 
SYS-Adressen  werden  auf  dem  Bildschirm  angezeigt.  Dann 
können  im  Direkt-Modus  Basicprogramme  hin-  und  herge¬ 
schoben  werden,  oder  aus  Maschinenroutinen  einzelne  Bytes 
transportiert  werden.  Die  Basicprogramm-Übertragung  hat  die 
angenehme  Eigenschaft,  das  transportierte  Programm  an  das 
bereits  im  Speicher  befindliche  Programm  anzuhängen,  es 
handelt  sich  also  um  eine  Art  Merge-Funktion.  Der  »NEW«- 
Befehl  schafft  wieder  leere  Verhältnisse,  wenn’s  mal  zu  voll  ge¬ 
worden  ist. 


Programmerklärung 


lange,  um  das  Byte  anzunehmen,  zum  Beispiel  dann,  wenn  er 
gar  nicht  eingeschaltet  ist,  bricht  der  Sender  nach  zirka  1,8 
Millisekunden  Wartezeit  den  Sendevorgang  ab  und  schaltet 
den  USER-Port  wieder  auf  Eingangs-Modus.  Dadurch  soll  ver¬ 
hindert  werden,  daß  die  beiden  Computer  gleichzeitig  senden, 
was  der  Hardware  schaden  würde.  Nach  erfolgter  Übertra¬ 
gung  wird  das  dritte  Bit  in  $ddOO  wieder  auf  »1«  gesetzt,  dabei 
ändert  sich  in  $ddOd  des  anderen  Computers  nichts,  es  ist  halt 
notwendig,  um  es  wieder  auf  »0«  setzen  zu  können. 

$7f7c  ist  die  Byte- Empfangs- Routine.  Hier  wartet  der  Emp¬ 
fänger  solange  in  der  VALID-Schleife,  bis  die  Daten  gültig  sind. 
Wird  nichts  gesendet,  so  wartet  der  Empfänger  fortwährend 
und  merkt  nichts.  Zum  Abbruch  muß  man  dann  die  RUN/STOP- 
und  die  RESTORE-Taste  gleichzeitig  drücken.  Sind  die  Daten 
gültig,  so  werden  sie  in  den  Akkumulator  des  Prozessors  gela¬ 
den.  Der  Empfänger  quittiert  durch  einmaliges  Nullen  des  drit¬ 
ten  Bits  von  $dd00. 

$7f8f  definiert  den  User-Port  als  Eingang.  $7f92  definiert 
den  User-Port  als  Ausgang.  Der  Trick  mit  »BIT  mmnn«  fand 
auch  hier  Anwendung.  Man  spart  immerhin  ein  Byte. 

$7f9d  initialisiert  den  User-Port.  Zwar  setzt  das  Betriebs¬ 
system  den  User-Port  als  Eingang,  nimmt  aber  nicht  die  Flag 
in  $ddOd  weg,  wodurch  es  direkt  nach  dem  Einschalten  zu  ei¬ 
ner  VALID-Meldung  kommt,  die  eine  richtige  Übertragung  ver¬ 
hindert.  Die  VALID-Schleife  in  $7f9d  liest  so  lange  VALID- 
Flags,  bis  keine  mehr  kommen,  und  springt  dann  zur  Eingangs- 
Rict  igs-Routine. 


Die  Punkte  »..«  im  Basicprogramm  sind  Platzhalter  für  die 
$-Seite,  in  die  das  Maschinenprogramm  geladen  wurde.  Im  fol¬ 
genden  gehe  ich  von  Seite  $  7f  aus.  $7f00  =  sys  32512 
überträgtein  Basicprogramm  vom  Sender  zum  Empfänger,  wo 
es  an  das  im  Speicher  befindliche  Programm  angehängt  wird. 
Zunächst  wird  der  User-Port  des  Senders  als  Ausgang  defi¬ 
niert.  Dann  wird  ein  Zeiger  in  $58  eingerichtet,  der  von  Basic- 
Start  ($2b)  bis  Basic-Ende  ($2d)  alle  Bytes  der  Byte-Sende- 
Routine  mit  »jsr  7f5e«  übergibt.  Nach  Übertragung  des  letzten 
Bytes  wird  der  User-Port  wieder  als  Eingang  geschaltet  (=  Si¬ 
cherheitsfall). 

Mit  sys  32551  ($7f27)  wird  ein  Basicprogramm  empfan¬ 
gen.  Durch  Subtraktion  von  2  vom  Basic-Zeiger  wird  die  Kop¬ 
peladresse  gewonnen,  ab  der  die  empfangenen  Bytes  ge¬ 
speichert  werden  sollen.  Die  Byte-Empfangs-Routine  steht  ab 
$7f7c.  Der  Empfänger  erkennt  das  Basicprogramm-Ende  an 
drei  folgenden  Nullen  ($#00),  wonach  er  den  Empfang  ab¬ 
bricht,  durch  einen  CLR-Befehl  ($a660)  die  Basic-Zeiger  neu 
setzt,  durch  $a533  die  Programmzeilen  neu  bindet  und 
schließlich  in  die  Basicwarteschleife  nach  $e385  springt. 

$7f5e  ist  die  Byte-Sende-Routine.  Der  Akkumulator  des 
Prozessors  wird  in  das  Datenregister  des  User-Ports  ge¬ 
schrieben,  anschließend  wird  das  dritte  Bit  in  Register  $dd00 
auf  »0«  gesetzt.  Nun  bleibt  das  fünfte  Bit  in  Register  $ddOd 
des  anderen  Computers  solange  »1«,  bis  es  gelesen  wird. 
Durch  den  Lesevorgang  wird  es  gleichzeitig  gelöscht.  Diesen 
Mechanismus  kann  man  einfach  zur  Übertragungskontrolle 
nutzen.  Das  dritte  Bit  von  $dd00  ist  die  VÄLID-Flagge.  Wenn 
sie  gesetzt  ist,  sind  die  Daten  gültig.  Damit  der  Sender  weiß, 
wann  er  das  Byte  übertragen  ansehen  kann,  sendet  der  Emp¬ 
fänger  ein  QUITTUNGs-Signal.  Dieses  kommt  im  fünften  Bit 
des  Registers  $ddOd  beim  Sender  an.  Auch  hier  wird  durch 
das  Lesen  gleichzeitig  gelöscht.  Braucht  der  Empfänger  zu 
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—  Verbindungsleitung  löten  (1:1). 

—  Programm  erfassen,  SAVEn  und  RUNnen. 

Soll  zum  Beispiel  von  Computer  A  ein  Programm  zu  Compu¬ 
ter  B  übertragen  werden,  so  muß  zuerst  Computer  B  mit  »sys 
32551«  vorbereitet  werden,  dann  wird  Computer  A  mit  »sys 
32512«  zum  Senden  veranlaßt.  Im  umgekehrten  Fall  be¬ 
schwertsich  Computer  A  mit  der  Meldung  »device  not  present 
error«,  welche  aus  dem  Basicinterpreter  für  diesen  Zweck  ent¬ 
liehen  wurde.  Die  Übertragungsrate  liegt  bei  etwa  11  000  By¬ 
tes  pro  Sekunde. 

(Johannes  Mockenhaupt/rg) 


10  rem  "  Johannes  Mackenhaupt 
20  rem  "  Hochstadenstr.  2B 

30  rem  " 

40  rem  "  D-5000  Köln  1 

,den  29. 

März 

1984 

50  : 

60  rem  "  C  64  /  VC  20  /  Koppelung 
70  rem  "  über  den  programmierbaren 

USER 

Port. 

BO  : 

100  bytes=165: 

ahl  Bytes  Hasch i nen-PRG 

rem 

"  Anz 

HO  hs=peek  (56 )  —  1  : 

rem 

"  hae 

chste  aktuelle  RAM— Seite  minus 

1. 

120  if  peek(55)>0  then  hs=hs-l 

:  rem 

"  kei 

n  'glattes'  RAM-Ende:  Sicherhei ts- 

Seite 

130  : 

140  print  "Esys"hs*256!' :  BASIC 

PRG 

senden 
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Listing  zur  Übertragung  von  Basicprogrammen  zwischen 
zwei  C  64. 


150  print  "Sjsys"hs*256+39" :  BASIC  PRG  emp 

6130  data  133, 

88:  rem  "  ..07 

85 

58 

fangen . 

sta  58 

merken 

160  print  "SiSys"hs*256+94"  s  1  BYTE  senden 

6140  data  132, 

89:  rem  "  ..09 

84 

59 

170  print  ,,Eteys,,hs*256+124n :  1  BYTE  empfa 

sty  59 

merken 

ngen 

B200  data  160, 

0:  rem  "  . . Ob 

aO 

00 

ISO  print  "S,isys"hs*256+143’, :  USER-Port  au 

ldy#00 

Y-Register  vorbereiten. 

f  Eingang 

6210  data  177, 

88:  rem  "  . . Od 

bl 

58 

190  print  ,,Ei5ys,,hs*256+146‘,  :  USER— Port  au 

lda  (58). y 

1  Byte  aus  PRG  holen 

f  Ausgang 

6220  data  32, 

94,  — 1 : rem  "  . . Of 

20 

5e 

200  print  ,,Efeys"hs*256+157n :  QUICK-Port  I 

.  .  jsr  . .  5e 

und  senden. 

ni tial isierung 

6230  data  230, 

88:  rem  "  . . 12 

e6 

58 

290  : 

inc  58 

Zeiger  erhoehen  L- 

-Byte 

300  far  i=hs*256  to  i+bytes-1 

6240  data  208, 

2:  rem  "  . . 14 

dO 

02 

310  read  a 

bne  . . 18 

ohne  Uebertrag 

320  b=a 

6250  data  230, 

89:  rem  "  .  .  16 

e6 

59 

330  if  a<0  then  a=a+hs+l 

inc  59 

Zeiger  erhoehen  H- 

-Byt 

e 

340  poke  i ,a 

6300  data  165, 

89:  rem  "  .  .  18 

a5 

59 

350  s=s+b 

lda  59 

Zeiger  H— Byte 

360  next  i 

6310  data  197, 

46:  rem  "  .  .  la 

c5 

2e 

370  s=s— 20510 

cmp  2e 

BASIC-Ende  H-Byte 

380  if  sOÖ  then  print  "ETiData-Fehl  eri£j:  11 

6320  data  144, 

237:  rem  "  . .  lc 

90 

ed 

s"betraegt  die  Di f f erenz . " : end 

bcc  . . Ob 

noch  nicht  erreicht. 

390  : 

6330  data  165, 

88:  rem  "  . . le 

a5 

58 

400  print  "SISQui ckPortllä  ist  jetzt  initia 

lda  58 

Zeiger  L-Byte 

1  i si ert . 

6340  data  197, 

45:  rem  "  ..20 

c5 

2d 

410  poke  56, hs:  rem  "  neue  RAM-top  Ad 

cmp  2d 

BASIC-Ende  L-Byte 

resse 

6350  data  144, 

231:  rem  "  ..22 

90 

e7 

420  sys  hs*256+157: rem  "  Ini ti al i si erung 

dcc  . . Ob 

noch  nicht  erreicht. 

430  new:  rem  "  Setzen  der  BASI 

6360  data  76, 

143,  -l:rem  "  ..24 

4c 

8f 

C-Zeiger  auf  neuen  Bereich. 

.  .  jmp  . . 8f 

USER— Port  auf  Eingang 

440  : 

6370  : 

6000  rem  "  Transport-Routinen  BASIC- 

7000  rem  "  Transport-Routinen 

BASIC- 

PRG  Senden:  $..00 

PRG  Empfangen 

:  $-.27 

6010  : 

7010  : 

6100  data  32,146,  -l:rem  "  ..00  20  92 

7100  data  56: 

rem  "  ..27 

38 

..  jsr  ..92  USER— Port  auf  Ausgang 

sec 

Start-Adresse  berechnen 

6110  data  165,  43:  rem  "  ..03  a5  2b 

7110  data  165, 

45:  rem  "  .  .  28 

a5 

2d 

lda  2b  L-Byte  Basic-Start 

lda  2d 

L— Byte  Basic— Ende 

6120  data  164,  44:  rem  "  ..05  a4  2c 

7120  data  233, 

2:  rem  "  . . 2a 

e9 

02 

Idy  2c  H— Byte  Basic-Start 

sbc#02 

$02  substrahi eren 

CM 


ANWENDUNG 


Listing  zur  Übertragung  von  Basicprogrammen  zwischen 
zwei  C  64  (Schluß) 


7130  data  133, 

45:  rem  "  ..2c 

85 

2d 

8135  data  208,248:  rem  “  ..6c 

dO 

j:  o 

=  u 

sta  2d 

und  speichern. 

bne  ..66  Ueberschrei tung? 

7140  data  165, 

46:  rem  "  . . 2e 

a5 

2e 

Bl 40  data  32,143,  -l:rem  •*  . . 6e 

20 

8f 

1  da  2e 

H-Byte  Basic-Ende 

..  jsr  . . 8f  USER-Part  als  Eingang 

7150  data  233, 

0:  rem  "  ..30 

e9 

00 

8150  data  162,  5:  rem  "  ..71 

a2 

05 

sbcttOO 

Carry— Flag  subtrahieren 

ldx#05  Fehler — Nummer  Bet 

. System 

7160  data  133, 

46:  rem  "  . . 32 

85 

2e 

8155  data  76,  58, 164: rem  ”  ..73 

4c 

3a 

sta  2e 

und  speichern. 

a.4  jmp  a43a  Fehler-Rautine  Rechner 

7200  data  160, 

0:  rem  "  . . 34 

aO 

00 

8160  data  162,151:  rem  "  ..76 

a2 

97 

IdyttOO 

Y— Register  varbereiten. 

ldx#97  VALID-Fl ag  aus 

7210  data  32, 

124,  — 1 : rem  "  ..36 

20 

7c 

8165  data  142,  0,221:  rem  ..78 

Be 

00 

. .  jsr  . . 7c 

1  Byte  empfangen 

dd  stx  ddOO  VALID  zuruecknehmen 

7220  data  145, 

45:  rem  "  ..39 

91 

2d 

8170  data  96:  rem  "  ..7b 

60 

sta  (2d ) . y 

und  speichern. 

rts  RETURN 

7230  data  230, 

45:  rem  "  . . 3b 

e6 

2d 

8180  : 

inc  2d 

BASIC— F‘RG  Ende  erhoehsn 

8200  rem  "  Transport-Routinen:  1 

BYTE  Em 

7240  data  208, 

2:  rem  "  . . 3d 

dO 

02 

pfanqen:  .7c 

bne  . . 41 

ahne  Uebertrag 

8202  : 

7250  data  230, 

46:  rem  "  .  .  3-f 

e6 

2e 

8204  data  173,  13,221: rem  "  ..7c 

ad 

Od 

inc  2e 

H-Byte  erhoehen 

dd  lda  ddOd  VALID  holen 

7300  data  168: 

rem  "  . . 41 

a8 

8210  data  240,251:  rem  "  . . 7f 

fO 

fb 

tay 

Ende— Bedingung  prue-fen 

beq  ..7c  '*  warten 

7310  data  208, 

8:  rem  "  . . 42 

dO 

08 

8220  data  173,  1,221: rem  "  ..81 

ad 

01 

bne  . . 4c 

kein  Ende 

dd  lda  ddO 1  BYTE  holen 

7320  data  165, 

252:  rem  "  ..44 

a5 

f  c 

8230  data  162,147:  rem  "  ..84 

a2 

93 

lda  f c 

2. Byte=0  ? 

ldx#93  QUITTUNG— Signal  senden 

7330  data  208, 

4:  rem  "  ..46 

dO 

04 

8235  data  142,  0,221: rem  "  ..86 

Be 

00 

bne  .  .  4c 

nein,  kein  Ende 

r  am 

dd  stx  ddOO 

7340  data  165, 

253:  rem  "  ..48 

a5 

fd 

8240  data  162,151:  rem  "  . . S9 

a2 

97 

lda  fd 

3. Byte=0  ? 

ldx#97  QUITTUNG-Signal  loeschen 

7350  data  240, 

9:  rem  "  . . 4a 

f  0 

09 

8245  data  142,  0 , 22 1 : rem  "  ..8b 

Be 

00 

beq  . . 55 

ja,  dann  Ende 

dd  stx  ddOO 

7360  data  165, 

252:  rem  "  ..4c 

a5 

fc 

8250  data  96:  rem  "  ..Be 

60 

1  da  -f c 

vorletztes  Byte  kellern 

rts  RETURN 

7370  data  133, 

253:  rem  "  . . 4e 

85 

f  d 

8260  : 

sta  -f  d 

9000  rem  "  Richtungs-Register  auf 

Einqan 

7380  data  132, 

252:  rem  "  ..50 

84 

fc 

g:  $..Bf 

sty  -fc 

letztes  Byte  kellern 

9010  rem  " 

Ausqan 

7390  data  24: 

rem  "  . . 52 

18 

g:  T-..92 

clc 

Sprungbedingung 

9020  : 

7400  data  144, 

223:  rem  "  ..53 

90 

d9 

9100  data  162,  0:  rem  "  . . Sf 

a2 

00 

bcc  . . 34 

weiter  machen. 

ldx#00  USER-Part  als  Eingang 

7500  data  32, 

96, 166: rem  "  ..55 

20 

60 

9110  data  44, 162,255: rem  "  ..92 

a2 

ff 

a6  jsr  a660 

CLR-Bef ehl 

ldx#ff  USER-Part  als  Ausgang 

7510  data  32, 

51, 165: rem  "  ..58 

20 

33 

9120  data  160,151:  rem  "  ..94 

aO 

97 

a5  jsr  a533 

BASIC— Zeilen  binden 

ldy#97 

7520  data  76, 

133,227: rem  "  ..5b 

4c 

85 

9130  data  140,  0,221: rem  "  -.96 

Sc 

00 

e3  j  mp  e385 

in  READY— Modus  springen 

dd  sty  ddOO  VALID-Fl ag  zuruecksetzen 

7530  : 

9140  data  142,  3,221:rem  "  ..99 

Be 

03 

8000  rem  "  Transport-Routinen:  1 

BYTE  Se 

dd  stx  dd03  USER— Richtung  set 

z  en 

nden:  $. .5e 

9150  data  96:  rem  "  ..9c 

60 

8010  : 

rts  RETURN 

B100  data  141 , 

1 , 221 : rem  "  . . 5e 

Bd 

Ol 

9160  : 

dd  sta  ddOl 

AKKU  in  USER-Part 

9200  rem  "  Ini ti al i si erung  des  Ports- 

8110  data  162, 

147:  rem  "  ..61 

a2 

93 

t  .  .  9d 

1 dx#93 

VALID— Signal  senden 

9210  : 

8115  data  142, 

0,221: rem  "  ..63 

Be 

00 

9220  data  173,  13,221:rem  "  . . 9d 

ad 

Od 

dd  stx  ddOO 

dd  lda  ddOd  VALID  laden 

8120  data  173, 

13,221 : rem  "  . . 66 

ad 

Cd 

9230  data  208,251:  rem  "  . . aO 

dO 

f  b 

dd  lda  ddOd 

QUITTUNG  laden 

bne  . . 9d  Flag  gesetzt: nach 

einmal 

8125  data  208, 

1 1 :  rem  "  . . 69 

dü 

Ob 

9240  data  76,143,  -l:rem  "  . . a2 

4c 

8f 

bne  . . 76 

QUITTUNG  empfangen 

..  jmp  ..Bf  USER— Port  als  Eingang 

8130  data  202: 

rem  "  . . 6b 

ca 

dex 

abzaehlen  der  Zeit 

ready. 
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Drucker/ 
Floppy  ein* 
oder  ausge¬ 
schaltet? 

Diese  Prüfroutine  verhindert  wir¬ 
kungsvoll  die  Fehlermeldung:  DEVICE 
NOT  PRESENT  ERROR  und  hilft,  ein 
Programm  absturzsicher  zu  machen. 

Bei  der  Prüfroutine  handelt  es  sich  um  ein  Unterprogramm, 
das  mit  GOSUB  10080  aufgerufen  wird.  Vor  dem  Aufruf  der 
Routine  muß  festgelegt  werden,  welches  Gerät  überprüft  wer¬ 
den  soll  (Gerätenummer  DN%:  4  für  Drucker,  8  für  Floppy).  Die 
Auswertung  der  Variablen  DR%  (0  =  aus,  1  =  ein)  ermöglicht 
eine  Aussage  über  den  Einschaltzustand. 

Prüfroutine 
Zeile  10080: 

Um  die  Maschinenroutine  nicht  bei  jedem  Aufruf  des  Unterpro¬ 
gramms  einzulesen,  wird  sie  nur  beim  ersten  Aufruf  eingele¬ 
sen. 

Zeile  10090  und  10100: 

In  die  vom  Computer  nicht  benutzte  Speicherstelle  2  der  Zero¬ 
page  wird  die  Device-Nummer  DN%  (4  für  Drucker,  8  für  Flop¬ 
py)  gePOKEt,  das  Maschinenprogramm  aufgerufen  und  an¬ 
schließend  der  Inhalt  der  Speicherstelle  2  überprüft.  War  das 
Carry-Bit  gesetzt,  ist  das  entsprechende  Gerät  ausgeschaltet. 
Die  Variable  DR%  wird  entsprechend  dem  Einschaltzustand  1 
(=  ein)  oder  O  (=  aus)  gesetzt. 

Zeile  10140  bis  10170: 

Basic-Lader  der  Maschinenroutine 
Nach  dem  Löschen  des  Bildschirms  wird  der  Variablen  DN% 
die  entsprechende  Geräte-Nummer  (4  für  Drucker,  8  für  Flop¬ 
py)  zugewiesen  und  die  Prüfroutine  aufgerufen.  Die  Abfrage 
der  Variablen  DR%  (Device  ready)  ermöglicht  es,  eine  Aussa¬ 
ge  überden  Einschaltzustand  (0  =  aus,  1  =  ein)  des  entspre¬ 
chenden  Gerätes  zu  machen. 

Wird  die  Prüfroutine  beim  Diskettenlaufwerk  angewendet 
(DN%  =  8),  so  muß  nach  dem  Aufruf  der  Routine  der  Fehlerka¬ 


nal  der  Floppy  gelöscht  werden,  da  durch  die  Prüfung  ein  Syn¬ 
tax  Error  (31)  vom  DOS  gemeldet  wird  (Ansprung  des  NMI- 
Vektors  in  Zeile  160).  (Werner  Pfeil/gk) 

1U  PRINT"Lf  WERNER  PFEIL" 

20  PRINT"  AM  MALZBUECHEL  4" 

30  PRINT"  5000  KOELN  1" 

40  PRINT"  0221/24  25  53" 

50  PRINT : PRINT"  64 'ER  MAGAZIN 

8/84" 

51  PR INT "SERIELLER  BUS  -  TEST" : PRINT 

52  PR I NT " UEBERPRUEFUNG  OB  DRUCKER  ODER 

53  PR I NT " FLOPPY  EIN/AUSGESCHALTET  SIND" 

60  PR I NT : PR I NT : PR I NT "  TASTE" 

70  PQKE 1 98 , 0 : WA I T 1 98 , 1 
100  REM  *  DEM-PROGRAMM  * 

110  : 

120  PRINT  CHR$(147) 

130  DN7.=4:  GOSUB  10080:  REM  DRUCKER 

140  IF  DR7.=  1THENFR  INT  "DRUCKER  EINGESCHAL 

TET" 

150  IF  DR7.=OTHENPR  INT  "DRUCKER  AUSGESCHAL 
TET" 

160  DN7.=8:  GOSUB  10080:  IF  DR7.=  1  THEN  OPEN 

1 ,8, 15, "UI: " :CLOSE  1 : REM  FLOPPY 

170  IF  DR7.=  1THENPR  INT  "FLOPPY  EINGESCHAL 

TET" 

180  IF  DR7.=OTHENPR  INT  "FLOPPY  AUSGESCHAL 
TET" 

190  END 
200  : 

210  : 

220  : 

10000  REM  *  PRUEFROUT I NE  DEVICE  EIN?  * 

1007^  : 

lOObu  IF  FT‘A=0  THEN  FT7.=  1:  GOSUB  10140:  RE 
M  ROUTINE  NUR  BEIM  1.  MAL  EINLESEN 
10090  POKE  2 , DNX : SYS49 1 52 : I F  PEEK(2)=0  T 
HENDR7.=  1:  RETURN:  REM  DEVICE  'EIN' 

10100  DR7.-0:  RETURN: 

REM  DEVICE  'AUS' 

10110  : 

10120  REM  *  MASCHINENROUTINE  EINLESEN  * 
10130  : 

10140  FOR  AD=49152T049185: READ  A:POKE  AD 
, A: NEXT  AD 

10150  DATA169, 1 , 160, 192, 162,33,32,189,25 

5.169. 1 . 160.15.166.2.32. 186.255.32 
10160  DATA192, 255, 176,2, 169,0, 133,2,169, 

1.32.195.255.96.32 

10170  RETURN  Ein  Demo-Programm.  Die 

ready  .  Prüfroutine  befindet  sich  ab  Zeile  10000 


0010 

}  ***************************** 

0020 

J  * 

ASSEMBLER -L IST  ING  DER  * 

0030 

;  * 

PRUEFROUT INE 

DEVICE  EIN  ?  * 

0040 

;  * 

GESCHRIEBEN 

FUER 

C-  84  * 

0050 

s  * 

CC:>  1934  BY 

WERNER  PFEIL  * 

0060 

;  ***************************** 

0070 

0100 

•  BA 

SC000 

0000- 

03 

01 

0110 

LDA 

#*01 

1 

LAENGE 

C0B2- 

00 

00 

0120 

LOY 

3SC0 

; 

ADRESSE  HIGH 

0004- 

02 

21 

0130 

LDX 

#*21 

/ 

ADRESSE  LOW 

C00G- 

20 

BD 

FF 

0  140 

JSR 

*FFBD 

; 

PARAMETER  FUER  FILENAMEN 

0003- 

03 

01 

0150 

LOA 

#*0  1 

; 

FI LE -NR. 

C00B- 

00 

0F 

0160 

LDY 

#*0F 

; 

SEKUNDAERADRESSE 

C00D- 

06 

02 

0170 

LDX 

*02 

; 

DEVICE-NR. 

C00F- 

20 

B0 

FF 

0  130 

JSR 

*FFBA 

; 

FILEPARAMETER  SETZEN 

C012- 

20 

00 

FF 

0  190 

JSR 

*FFC0 

} 

OPEN 

00  15- 

B0 

02 

0200 

BCS 

*00  1 9 

} 

WENN  AUSGESCHALTET,  DANN 

0017- 

09 

00 

0210 

LOA 

#*00 

Der  Inhalt  der 

C019- 

85 

02 

0220 

STA 

*02 

•- 

ERGEBNIS  DER  PRUEFUNG 

DATA-Zeilen 

09 

0230 

LDA 

#*0  1 

; 

FILE-NR. 

00  ID- 

20 

03 

FF 

0240 

JSR 

*FFC3 

; 

CLOSE 

mit  zugehörigem 

0020- 

60 

0250 

RTS 

Assembler- 

002  1- 

20 

0260 

0270 

.BY 

.EN 

*20 

Listing 
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CM 

Analoger  Meßwert  rein  — 
analoger  Stellwert  raus 


In  diesem  Beitrag  wird  eine  einfache  Anordnung  für  den  Commodore  64 
beschrieben,  bei  der  ohne  Umschalten  ein  Analogsignal  eingegeben  und 
ein  Analogstellwert  ausgegeben  werden  kann. 


Für  einen  regeltechnischen  Versuch  wurde  eine  Anordnung 
gebaut,  bei  der  über  eine  dauernd  mit  dem  Computer  verbun¬ 
dene  Meßleitung  ein  analoges  Meßsignal  aufgenommen,  im 
Computer  verarbeitet  und  über  die  8-Bit-Datenleitung  des 
Userports  und  einen  8-Bit-D-A-Wandler  wieder  ein  analoges 
Stellsignal  als  Antwort  ausgegeben  werden  kann  (siehe  Bild) 


Ein-  und  Ausgangsschaltung 

Diese  Anordnung  dürfte  auch  für  viele  Bastelzwecke  sehr  in¬ 
teressant  sein.  Für  den  Analogeingang  wurde  mit  dem  IC 
LM311  ein  Spannungs-Frequenzwandler  gebaut.  Die  Fre¬ 
quenz  des  erzeugten  Rechtecksignals  wurde  über  eine  ein¬ 
adrige  Schirmleitung  mit  Ader  auf  PIN6  =  CNT-2  des  User¬ 
ports  und  Schirm  auf  PIN1  =  GND  zur  Frequenzmessung  ein¬ 
gegeben.  Diese  Anwendung  ist  prinzipiell  in  [1]  beschrieben, 
allerdings  mit  dem  kleinen  Schönheitsfehler,  daß  die  Sache  so 
nicht  funktioniert.  Trotzdem  ist  das  erwähnte  Buch  sehr  emp¬ 
fehlenswert  wegen  seiner  Vielfalt  und  Verständlichkeit.  Im  fol¬ 
genden  wird  zunächst  ein  funktionsfähiges  Programm  gezeigt 
und  anschließend  werden  wesentliche  Verbesserungen  unter 
Verwendung  einer  Assembler-Routine  geschildert.  Ein  Studi¬ 
um  der  Literatur  [1  bis  4]  zeigt,  daß  für  eine  einfache  Frequenz¬ 
messung  bis  hinauf  zu  etwas  mehr  als  20  kHz  der  im  CIA  6526 
(Complex  Interface-Adapter-IC)  eingebaute  Zähler  und  die  Sy¬ 
stemuhr  TI  als  Zeitbasis  in  Frage  kommen.  Wer  einen  Recht¬ 
eckgenerator  zur  Hand  hat,  kann  dies  auch  gleich  (TTL-Pegel  5 
V  einstellen)  mal  ausprobieren!  Geben  sie  das  folgende  Basic- 
Programm  ein  und  schließen  Sie  den  Generator  —  wie  be¬ 
schrieben  —  an  CNT-2  an. 


30  REM****BR3  I  C-F'ROGRfiflM  FREQUENZMESSUNG************ 
1 00  POKE56590 ..  240 
1 1 G  PQKE565B0 , 255 : P0KE5658 1 , 255 
129  T=TI 

140  P0KE565§i?241  Ustin9  >>Freciuenzm®sslin9« 

150  1  FT  I  <:>T +60THEN 1 50 
1 60  fl=PEEK <  5658 1  >  :  B=PEEK  C 56580  '> 

1 78  FR I NT 65535- <256*0+6 ) 
i 80  GOTO 1 08 • REM  ! ! DflUERSCHLE I FE ! 


Es  wurden  folgende  Adressen  verwendet: 

Dez.  56590  Hex  DDOE  Kontrollregister  für  Zähler  1 
Dez.  56580  Hex  DD04  Zähler  1  Low-Byte  T1L 
Dez.  56581  Hex  DD05  Zähler  1  High-ByteTIH 

In  Zeile  100  wird  das  Kontrollregister  für  den  Zähler  1  so  pro¬ 
grammiert,  daß  dieser  in  der  gewünschten  Art  arbeitet  und  zu¬ 
nächst  im  STOP-Zustand  ist.  In  Zeile  110  wird  der  Zähler  mit  HB 
=  255  und  LB  =  255  geladen;  er  hat  die  Eigenschaft,  diese 
zwei  Byte  nach  dem  Start  herunterzuzählen  (Dez.  65535  bis 
0).  Der  Zähler  kann  nun  aber  nicht,  wie  in  [1]  erwähnt,  mit  dem 
Setzen  des  High-Byte  von  TI  (T1H)  gestartet  werden,  sondern 
durch  den  Befehl  Poke  56590,  241,  bei  dem  Bit  0  im  Kontroll¬ 
register  auf  1  =  START  gesetzt  wird.  Die  Tl-Uhr  wird  bei  die¬ 
sem  Programm  »im  Vorübergehen«  gelesen,  die  beiden  IF- 
Abfragen  geben  den  Start-  und  den  Auslesebefehl  für  den 
Zähler. 

Im  Kontrollregister  haben  nur  Bit  0  und  5  wichtige  Funktio¬ 
nen: 

11110001  =  Dez.  241  —  Zähler  Start 
11110000  =  Dez.  240  -  Zähler  Stop 

-  anderen  Bits  sind  als  »Dauermaske«  aufzufassen. 

Das  Basicprogramm  zeigt  jedoch  leider  bei  der  praktischen 
Anwendung  Anzeigeschwankungen  von  etwa  2  Prozent  und 
manchmal  weit  darüber.  Schuld  daran  ist  sicher  die  Programm¬ 
sprache  Basic,  welche  zum  Beispiel  aufgrund  von  zu  langsa¬ 
men  Bearbeitungszeiten  des  Basic-Interpreters  in  den  IF- 
Abfragen  ziemliche  Fehler  in  der  Zeitbasis  zu  verursachen 
scheint.  Gelegentlich  kommt  die  ganze  Messung  aber  auch 
noch  stärker  »aus  dem  Tritt«.  Geht  man  dazu  über,  die  Uhr  TI 
nicht  »im  Vorübergehen«  abzulesen,  dann  kann  man  schon  ei¬ 
ne  etwas  bessere  Genauigkeit  erreichen. 


90  REM****B0S  I C-PROGR0MH2  FREQUENZMESSUMG******:**:**** 

100  POKE56590J  249 

1 1 0  POKE56580 , 255 : P0KE5658 1,255 

120  POKE 1 60 , 0 : POKE 161,0 

1 30  POKE 1 62 , @ = POKE 5 653Ö , 24 1 

150  IFT I <>T +60THEH 1 58 

166  fl=PEEK <  5658 1 >  =  B=PEEK< 56589 > 

1 70  PR I NT65535- <  256*H+B  > 

1 80  GOTO 1 00 • REM  ! ! DflUERSCHLE I FE ! 


Listing  »Frequenzmessung«  2 

In  diesem  Programm  wird  in  Zeile  120/130  durch  EinPOKEn 
von  0  in  die  drei  Tl-Register  160, 161, 162  die  Uhr  TI  jedesmal 
neu  gestartet,  wobei  Register  162  des  »schnellsten  Räd¬ 
chens«  zuletzt  genullt  wird.  Hierdurch  entfällt  die  erste  IF- 
Schleife  des  Starts.  Benützt  wird  im  Prinzip  nur  Regsiter  162, 
in  welchem  die  Uhr  von  0  bis  255  in  Schritten  von  1/60  s 
(Jiffies)  läuft.  Die  beiden  anderen  Register  werden  nur  zur  Si¬ 
cherheit  genullt. 

Ausgehend  von  diesem  Programm  wurde  das  folgende 
Assembler-Programm  geschrieben,  das  im  Prinzip  den  glei¬ 
chen  Ablauf  hat,  bei  dem  aber  die  Startbefehle  für  Zähler  und 
Uhr  TI  sowie  der  Stop-Befehl  für  den  Zähler  und  vor  allem  die 
Zeitabfrage  und  das  Ablesen  »blitzschnell«  ablaufen: 
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C  64 


DD0E 

100  CRfl 

= 

nmE 

DD04 

110  T1L 

= 

$DD04 

DD05 

120  T1H 

= 

$DD05 

00FI2 

130  TIM 

= 

$B2 

00  R0 

131  TV1 

= 

$R0 

00fll 

132  TV2 

= 

$fil 

C000 

140 

$= 

$C000 

C000 

fiy 

F0 

150 

LBfl 

#$F0 

C002 

8D 

0E 

DU 

160 

STfl 

CRfl 

C005 

fi9 

00 

220 

LBfl 

#$00 

000? 

85 

flw 

221 

STfl 

#TY1 

0809 

85 

fll 

222 

STfl 

*TV2 

C80.B 

85 

H2 

230 

STfl 

#TIM 

C00D 

Fi9 

Fl 

240 

LBfl 

#$F1 

O00F 

SB 

0E 

DU 

250 

STfl 

CRfl 

0012 

R5 

fl  2 

260  Mfl 

LBfl 

#T  I M 

0014 

09 

30 

270 

CMP 

#$30 

0016 

D0 

Ffi 

280 

BNE 

Mfl 

0018 

flE 

05 

DB 

290 

LDX 

T1H 

00 1B 

RC 

04 

BB 

300 

LBY 

T1L 

00  IE 

60 

320 

RTS 

330 

.EM 

Steilheit:  lOkHz/V 
Rg,  R^,  R^  Metallfilm  1% 

CT  MKP-Kond.  guter  Qualität 


Schaltbild  »Spannungs-Frequenzwandler« 


Listing  »Frequenzmessung  Maschinensprache« 


100  FÜR  I  =  43152  TO  4S182 
110  READ  X  POKE I ,  X : S=S+X : NEXT 

120  DATA169,240,141,  14,221,169,  0,133,160,133,161,133 

130  DATA 162, 169,241, 141,  14,221,165,162,281,  60,208,250 

140  DATA 174,  5,221,172,  4,221,  96 

150  IFSO  4561  THEN  RRINT"FEHLER  IN  DATflS" ; END 

168  PR  INT  "OK"  cacb 


Listing  »Basiclader« 

Nach  einmaligem  RUN-Lauf  kann  dieses  Programm  immer 
mit  SYS  49152  aufgerufen  werden,  der  Basiclader  kann  dann 
gelöscht  werden  (vorher  natürlich  speichern!).  Das  Programm 
arbeitet  einen  Durchlauf  des  Meßzyklus  ab  und  kehrt  dann 
nach  Basic  zurück,  zuvor  hat  es  jedoch  HB  und  LB  des  Zäh¬ 
lers,  T1H  und  T1L,  nach  Adresse  Dez  781  und  782  abgelegt. 
Aus  diesem  »Briefkasten«  können  die  Werte  mit  PEEK  geholt 
werden.  Als  Beispiel  ein  Miniprogramm  zur  dauernden  Fre¬ 
quenzanzeige  in  Hz: 


100  SYS 4 9 152 

1 1 0  ft- PEEK < 78 1 > : B-PEEK  < 782  > 

1 20  PR I NT65535- < 256#A+B > 

1 30  GOTO  1 00 :  REM  !  !  BfiUERSCHLE  I  FE  ! 


Listing  »Frequenzanzeige« 

Mit  diesem  Programm  wurde  eine  Genauigkeit  von  deutlich 
besser  als  1  Prozent  erhalten.  Versuche  zeigten,  daß  selbst  im 
praktischen  Betrieb  mit  einem  Spannungs-Frequenzwandler 
die  Meßdauer  ohne  Verschlechterung  des  Ergebnisses  auf 
30  x  1/60  s  +  0,5  s  verkürzt  werden  kann.  Dies  kann  man  im 
Basiclader  dadurch  bewerkstelligen,  daß  in  Zeile  130  die  Zahl 
60  in  30  geändert  wird. 

Bei  der  praktischen  Anwendung  wurde  entsprechend  [1] 
beziehungsweise  nach  Angaben  des  Herstellers  [5]  mit  dem 
IC  LM  331  folgender  Spannungs-Frequenzwandler  gebaut: 


Die  Schaltung  funktioniert  sehr  gut  und  recht  genau!  Für  die 
»Stellenwertausgabe«  wurde  mit  dem  8-Bit-D-A-Wandler 
ZN428  folgende  Schaltung  aufgebaut: 


Die  Ausgabe  über  den  Userport  erfolgt  mit  Hilfe  folgender 
Befehle: 

Poke  56579,  255  (Datenleitungen  PBO  bis  PB7  auf  Aus¬ 
gabe) 

Poke  56577,  x  (x  =  Dez.-Wert  der  Ausgabe) 

Der  Wandler  erzeugt  dann  eine  zu  x  proportionale  Spannung. 

Dem  Nachteil  einer  V/f-Wandler-Zeit  von  *  0,5  s  steht  der 
Vorteil  gegenüber,  daß  keine  Ein-Ausgabeleitungs-Umschal- 
tung  erforderlich  ist,  die  Signale  stehen  stetig  am  Port  zur  Ver¬ 
fügung.  Eine  mehrkanalige  Ausführung  des  Eingangs  durch 
Multiplexen  ist  denkbar.  Beim  Ausgang  ist  dies  sicher  etwas 
schwieriger. 

(Dr.  Ernst  Breitz/rg) 
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»Kudiplo«  er¬ 
füllt  Schüler¬ 
träume 

Eine  komplette  Kurvendiskussion  ist 
für  Computerbesitzer  eine  ganz  einfa¬ 
che  Angelegenheit. 

Wer  hätte  sich  da  nicht  gewünscht,  solche  lästige  Arbeit 
nähme  ihm  ein  fleißiger  Computer  ab.  Diesen  Wunsch  erfüllt 
»Kudiplo«  jedenfalls  für  den,  der  einen  VC  20  mit  wenigstens  3 
KByte  Erweiterung  besitzt.  Für  den  C  64  ist  »Kudiplo«  leicht 
einzurichten.  Nur  die  Bildschirmbefehle  sind  anzupassen. 

Benötigt  wird  außerdem  der  VC  1520,  der  Printer-Plotter 
von  Commodore,  der  die  grafische  Darstellung  mit  einer  Präzi¬ 
sion  möglich  macht,  die  keine  Wünsche  offen  läßt.  Mit  »Kudi¬ 
plo«  kann  dann  jede  beliebige  mathematische  Funktion  im  frei 
wählbaren  Bereich  und  Maßstab  dargestellt  werden.  Außer¬ 
dem  wird  auf  Wunsch  eine  Kurvendiskussion  ausgedruckt  mit 
Nullstellen,  Sprungstellen  und  Extrema,  deren  Koordinaten  bis 
zur  vierten  Dezimalstelle  genau  berechnet  werden. 

Hier  die  besonderen  Fähigkeiten  des  Programmes: 

□  Auf  beiden  Koordinatenachsen  kann  der  dargestellte  Be¬ 
reichfrei  gewählt  werden  durch  Bestimmung  des  jeweils  unter¬ 
sten  und  obersten  Wertes. 

□  Die  zweckmäßigste  Positionierung  der  Koordinatenachsen 
wird  automatisch  ermittelt  (Normalfall:  Kreuzung  im  Nullpunkt). 

□  Entsprechend  dem  gewählten  Bereich  wird  die  Skalierung 
des  Achsenkreuzes  berechnet  und  in  die  Grafik  geschrieben. 

□  Die  Maßeinheit  beider  Achsen  beträgt  dabei  immer  10  mm, 
so  daß  Zwischenwerte  leicht  aus  der  Grafik  ausgemessen  und 
berechnet  werden  können. 

□  Der  frei  wählbare  Darstellungsbereich  macht  es  möglich, 
durch  Wahl  eines  Teilbereiches  Ausschnittvergrößerungen 
der  Funktion  in  jedem  beliebigen  Maßstab  darzustellen  (!). 

□  In  ein  Achsenkreuz  kann  nach  der  ersten  auch  noch  eine 
zweite  und  beliebig  oft  noch  eine  weitere  Funktion  (etwa  zum 
Vergleich  mit  der  ersten)  geplottet  werden  —  solange  nicht  mit 
»Paper  feed«  der  Papiertransport  betätigt  wurde. 

□  Jede  Funktion  wird  in  anderer  Farbe  gezeichnet  und  die  zu¬ 
gehörige  Gleichung  mit  gleicher  Farbe  in  die  Grafik  eingetra¬ 
gen. 

□  Auf  Wunsch  wird  von  der  zuletzt  dargestellten  Funktion  die 
Kurvendiskussion  erstellt. 

□  Dabei  werden  ermittelt:  Extrema,  Maxima,  Minima  und  Sat¬ 
telpunkte  sowie  die  Nullstellen  unter  Angabe  der  Steigung  und 
die  Sprungstellen  mit  ihren  Koordinaten. 

□  Verarbeitet  werden  alle  dem  VC  20-  (beziehungsweise  C 
64)  geläufigen  mathematischen  Funktionen.  Bei  ihrer  Eingabe 
ist  nur  auf  die  Einhaltung  der  üblichen  Syntax  zu  achten. 

□  Ein  besonderer  Vorzug  von  »Kudiplo«  ist  schließlich,  daß  das 
Programm  unzulässige  Werte  erkennt  und  unberücksichtigt 
läßt.  SQR(X)  führt  darum  bei  Werten  von  X  <  0  ebensowenig 
zum  Abbruch  des  Programms  wie  1/X  bei  X  =  0. 

Die  Gebrauchsanleitung  für  den  Benutzer  wird  über  den 
Bildschirm  angegeben.  Unlogische  Eingaben  werden  zurück¬ 
gewiesen. 

Das  Programm  erfragt  zuerst  den  Bereich,  in  welchem  die 
Funktion  dargestellt  wird  (Zeilen  470  bis  540).  Die  entspre¬ 
chenden  Werte  werden  in  den  Variablen  XU,  XO,  YU  und  YO 
gespeichert.  Aus  diesen  Werten  wird  die  Lage  des  Nullpunk¬ 
tes  auf  beiden  Achsen  (XN  und  YN)  und  die  Maßeinheit  für  die 
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Skalierung  der  Achsen  (XE  und  YE)  berechnet.  Weiter  wird  an¬ 
schließend  die  darzustellende  Funktion  in  den  Zeilen  585  bis 
620  erfragt. 

Die  folgende  Routine  dient  dazu,  die  Funktion  in  das  Pro¬ 
gramm  zu  übernehmen,  indem  sie  zusammen  mit  ihrer  Ablei¬ 
tung  in  die  Programmzeilen  65  bis  80  und  205  geschrieben 
wird.  Die  Routine  bedient  sich  dabei  des  bekannten  Verfah¬ 
rens  der  Eingabe  über  Bildschirmspeicher  und  Tastaturpuffer: 

Die  zu  verändernden  Zeilen  werden  auf  den  Bildschirm  ge¬ 
schrieben,  dann  wird  der  Tastaturpuffer  mit  der  erforderlichen 
Zahl  von  »RETURNs«  gefüllt.  Bei  dem  dann  folgenden  Pro¬ 
grammabbruch  (Zeile  660)  arbeitet  der  Computer  die  Befehle 
im  Tastaturpuffer  ab.  Damit  bei  der  hiermit  bewirkten  Änderung 
des  Programmes  die  zuvor  gewählten  Parameter  nicht  verlo- ' 
ren  gehen,  werden  auch  diese  (mit  Eingabe  in  die  Zeilen  45 
und  50)  gerettet.  Damit  diese  Routine  funktioniert,  dürfen  die 
Zeilennummern  45,  50,  65,  70  und  205  nicht  verändert  wer¬ 
den!! 

Nachdem  sich  das  Programm  durch  »GOTO  45«  selbst  wieder 
gestartet  hat,  werden  zunächst  die  Parameter  aus  den  Zeilen 
45  bis  55  und  aus  den  Zeilen  65  bis  80  die  definierten  Funk¬ 
tionen  eingelesen. 

Nun  endlich  kann  der  Plotter  in  Funktion  treten.  Er  zeichnet 
die  X-Achse  (Zeilen  100  bis  140)  und  die  Y-Achse  (Zeilen  145 
bis  165)  in  der  Größe  von  400  x  400  Druckersteps  (=8x8 
cm). 

Es  folgt  in  den  Zeilen  1 95  bis  225  die  Berechnung  der  Funk¬ 
tionswerte,  beginnend  mit  dem  niedrigsten  Wert  von  X  und  mit 
der  Schrittweite  J  von  normalerweise  1/400  des  Gesamtbe¬ 
reichs.  Wer  die  Ausgabe  (auf  Kosten  der  Auflösung)  beschleu¬ 
nigen  möchte,  erreicht  dies  durch  Zuweisung  eines  höheren 
Wertes  für  J. 

Die  Zeilen  185  bis  195  bedürfen  einer  etwas  ausführlichen 
Erklärung:  Normalerweise  würde  das  Auftreten  unzulässiger 
Werte  in  der  Funktion  von  X  zum  Abbruch  des  Programmes 
führen,  so  zum  Beispiel  wenn  der  Logarithmus  von  Werten 
X<0  gebildet  werden  oder  durch  X=0  dividiert  werden  soll. 
Die  Verarbeitung  solcher  Funktionen  erfordert  einen  Eingriff 
ins  Betriebssystem:  Der  Zeiger  für  die  Fehlerbehandlungs- 
Routine  (Speicherplätze  $0300  und  $0301)  wird  so  (mit  Zeile 
190)  verbogen,  daß  er  jetzt  auf  einen  in  den  Kassettenpuffer 
gePOKEten  (Zeile  185)  Sprungbefehl  zeigt. 

Infolge  dieses  Eingriffs  gibt  nun  das  Betriebssystem  bei  Auf¬ 
treten  eines  Fehlers  nicht  mehr  Alarm,  sondern  beginnt  mit  der 
Abarbeitung  der  nächsten  (!)  Zeile.  Restliche  Statements  in 
der  fehlerträchtigen  Zeile  werden  also  nicht  mehr  beachtet. 

Mit  diesem  Trick  wird  bewirkt,  daß  der  Sprungbefehl  am  En¬ 
de  der  Zeile  205  normalerweise  ausgeführt  wird,  bei  Auftreten 
eines  Fehlers  aber  die  Zeilen  210  bis  215  abgearbeitet  wer¬ 
den.  Hier  wird  je  nach  Art  des  Fehlers  die  Null-Fehler-Flag  FE 
gesetzt  oder  der  unzulässige  Wert  von  X  in  der  Variablen  XW 
festgehalten.  Diese  Werte  sind  im  weiteren  Programmablauf 
behilflich,  unzulässige  Werte  von  X  zu  vermeiden. 

Nach  Berechnung  aller  Werte  von  X  und  Ausdruck  der  ent¬ 
sprechenden  Punkte  der  Funktion  (X;Y)  in  Zeile  220  wird  mit 
den  POKE-Befehlen  der  Zeile  225  der  Zeiger  für  die  Fehle¬ 
rausgabe  wieder  in  den  Normalzustand  gebracht.  Die  einge¬ 
gebene  Funktion  ist  damit  fertig  geplottet.  Das  Papier  wird  vor¬ 
geschoben,  damit  das  Ergebnis  besichtigt  werden  kann  (Zeile 
235).  Auf  dem  Bildschirm  erscheint  zugleich  das  Menü  (Zeilen 
665  bis  720).  Abhängig  von  der  Eingabe  verzweigt  das  Pro¬ 
gramm  nun  entweder 

1)  zur  Eingabe  einer  Funktion,  die  in  die  gleichen  Koordinaten 
geplotten  werden  soll,  oder 

2)  zur  Eingabe  der  Parameter  für  ein  neues  Koordinatenkreuz 
oder 

3)  zur  Ausgabe  der  Kurvendiskussion,  die  jeweils  nur  von  der 
letzten  dargestellten  Funktion  erstellt  werden  kann. 
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Im  Rahmen  der  Routine  für  die  Berechnung  der  Kurvendis¬ 
kussion  werden  die  Feh ler- Flags  XW  und  FE  dazu  verwendet, 
unzulässige  Werte  auszulassen. 

Nun  werden  zuerst  die  Null-  beziehungsweise  Sprungstel¬ 
len  (Zeilen  285  bis  360)  und  dann  die  Extrema  (Zeilen  365  bis 
390)  ermittelt.  Doch  nun  viel  Spaß  beim  Arbeiten  mit  »Kudiplo«. 

(Jürgen  Curdt/ev) 


5  REM***********KUD  I PLO***************** 
10  REM  FUNKTIONEN  DISKUTIEREN  UND 

12  REM  FLOTTEN  MIT  VC-20  +3K 
15  REM  UND  PRINTER-PLOTTER  VC- 1520 
20  REM  JUERGEN  CURDT 
25  REM  KESSEME I ERWEG  5 
30  REM  493  DETMOLD 

35  REM********************************** 

40  P0KE36879 , 25 : G0T045 

45  XU=— 4: X0=  4:YU=-4:Y0=  4:0Y=  O 

50  XN=  280: YN=  O 

55  XE= ( XO— XU) / 16: YE= (YO— YU) / 16 

60  REM  FUNKTION  BIS  80 

65  DEFFNF ( X ) =H I ER  WIRD  DIE  FUNKTION  EING 
EFUEGT 

70  F*=“HIER  WIRD  DIE  FUNKTION  EINGEFUEGT 

75  DEFFNF 1 (X)= (FNF (X+1E-4) -FNF (X-1E-4) ) / 
2E-4 

80  DEFFNF2 ( X )  =  ( FNF 1 (X+1E-4) — FNF1 (X-1E-4) 

) /2E-4 

85  OF'ENl  ,6,1: 0F‘EN2 ,6,2:  0PEN3 ,6,3:  OF’ENIO , 

6 

90  PRINT"»" ; : IFP=0GQT0550 
95  REM  KREUZ  ZEICHNEN 
100  PRINT#3,0: PRINT#2, 1 
105  IFSVTHEN170 

HO  PR I NT #  1 0 :  PR I NT #  1  ,  "M"  ;  O;  —440:  PRINTttl  , 
"M" ; 0; -200: PRINTttlO 

1 15  PRINT#1 , "M" ; 80; YN : FOR I =OTO 1 4STEP2 
120  FRINTttl , " I " : PRINTttl , "R" ; O; 4: PRINT# 1 , 
" J " ; 0; —4 

125  PR I NT #1,"R" ;— 12;— 14 

130  PR INT# 10, INT  < (XE*I+XU) *100+. 5) /100; 

1 35  PR I NT# 1  ,  "  M  "  ; 80+ I *25 ; YN : PR I NT# 1 , "D"  ;  8 
0+ ( 1+2) *25; YN 

140  NEXT : PRINT#1 , "M" ; 75+1*25; YN-4: PRINT# 
10 , " ; 

145  PRINT#1 , "M" ; XN; —200 

150  FOR I =OTO 1 4STEP2 : PRINTttl , " I " : PRINT#1 , 
"R" ; 4; 0: PRINT#1 , "J” ; -4; 0:PRINT#1 , "R" ; -30 

;-4 

155  J=YU+INT  ( YE* 100*1+ .  5)  / 100:  IFJOOTHEN 
F‘R  I  NT  #  1 0 ,  J ; 

160  PRINTttl , "M" ; XN; 1*25-200: PRINTttl , "D"  ; 
XN; (1+2) *25-200 

165  NEXT : PRINT#1 , "M" ; XN— 5; 1*25-209: PRINT 
#3 , 1 :  PR  I  NT  #10, 

170  REM  KURVE  PLOTTEN 

175  PR I NT ” miBgBfiffl  ETWAS  GEDULD  BITTE": PR 
INT#2,SV+3 

180  E$="M":FE=0: XW=XU 

1 85  P0KE832 , 76 : PQKE833 , 59 : P0KE834 , 20 1 
190  POKE76S , 64: P0KE769 , 3 
195  J= ( XQ— XU) /400: FORI=OT04OO 
200  X=J*I+XU 

205  Y=HIER  WIRD  DIE  FUNKTION  EINGEFUEGT: 
G0T0220 

210  E$="M" : IFX<0THENXW=X 
215  IFX=0THENFE=1 : G0T0230 

220  Y=Y / YE*25+0Y : IFY>2100RY<-210THENE$=" 


c  >ni 


VON  X="X 


Listing  von 
»Kudiplo« 


M" : G0T0230 

225  PR I NT # 1 , E$ ; I +80 ; Y : Ef= " D " 

230  NEXT : POKE768 , 58: POKE769 , 196 

235  PRINT#!  ,  !!M’! ;  0;  !80-3V*25:  rRINT#3, 1 : PR 

INTttlO , " Y="F$; 

240  PRINT#1 , "M" ; 0;— 250 
245  G0T0665 

250  PR I NT# 1 , "M" ; 0; 1 60-SV*25 

255  PRINT,,LDIE  KURVEN  WERTE  WERDEN 

BERECHNET 

260  PR INTttlO: PRINT#3,0: IFNOTFEANDXU=XWTH 
EN280 

265  I FFEAND X W=XUTHENPR I NT # 1 0 , "ÜNZULAESSI 
GER  WERT  BEI  0‘':G0T0275 

270  PR INT# 10, "UNZULAESSIGE  WERTE  IM  BERE 
I CH 11 :  PR I NT #10,"  VON  "XU"  BIS  0  !!  -  DA 

RUM  NUR" 

275  XU=XW+. 1 

280  PR INT# 10, "KURVENDISKUSSION 
U " B I S  X=" XO: PRINTttl O 
285  PR INT# 10,"  NULLSTELLEN:" 

290  A=FNF (XU+. 1 ) : Sl=XE/40 
295  F0RX=XUT0X0STEPS1 
300  I FX=0ANDFE= 1 THEN325 
305  F=FNF (X ) 

310  IFF*A<0THEN335 

315  IFABS (F) < IE— 6THENC=X : G0T0465 

320  A=F 

325  NEXTX 

330  G0T0370 

335  S=X-. 1: Z=X:C=X-. 05 

340  IFFNF (C) *FNF ( Z) <OTHENS=C: G0T0350 

345  Z=C 

35r-  C=(S+Z)/2 

355  IFABS  (Z-SX1E— 6ANDABS  (FNF  (C)  X1E— 3TH 
EN465 

360  IFABS  (Z-S) < 1E-6THENPRINT#10, "  SPRUN 
GSTELLE  BEI: " INT (C*1E4+. 5) / 1E4: GOT0320 
365  G0T034O 

370  PR INT# 10,"  EXTREMA: ":A=FNF1 (XU+. 1) : 

F0RX=XUTQX0STEPS1 

375  I FX=OANDFE= 1 THEN395 

380  F=FNF 1 ( X ) 

385  IFF*A<0THEN405 

390  I FABS (F ) < 1E-6THENC=X : G0TO44O 

395  A=F: NEXTX 

400  PR I NT# 1 , "M" ; O; -275 : CLOSE 1 : CL0SE2 : CLO 

SE3: CL0SE10: END 

405  S=X-. 1: Z=X:C=X-.05 

410  IFFNF 1 (C ) *FNF 1 ( Z ) <0THENS=C: GOT042O 

415  Z=C 

420  C=(S+Z)/2 

425  IFABS (Z-S) < 1E-6ANDABS (FNF1 (C) X1E-2T 
HEN440 

430  I  FABS  ( Z-S  X1E-6THEN395 
435  GÜT0410 

440  IFABS (FNF2 (C)  >  < 1E~5THENPRINT#10 , " 
SATTEL"; :G0T0455 

445  IFFNF2 (C) >0THENPRINT#10 , "  TAL  " ; : 
G0T0455 

450  IFFNF2 (C) <0THENPRINT#10 , "  HOCH"; 

455  PRINT#10, " ("INT (C*1E4+. 5) / 1E4" / " INT ( 

FNF  (0*1  E4+ .  5 )  / 1 E4  "  ||)  "  :  G0T0395 

460  REM  NULLSTELLEN  DRUCKEN 

465  PRINTttlO , "  ( " INT (C*lE3+.5) /1E3; "/ 

O)  F  '  =  "  ;  I NT  ( FNF  1  (0*1  E2+ .  5 )  / 1 E2 

470  G0TQ320 

475  REM  PARAMETER  WAEHLEN 

480  PRINT"  DIE  FUNKTION  WIRD  DARGESTE 
LLT  IM  BEREICH" 

485  PRINT"C^ON"  XU, "BIS" XO: PRINT" AUF  DER 
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VC  20+3 


KByte 


X-ACHSE" 

490  PRINT"gjVON"  YU  ,  "  BIS"  YO:  PR  INT  "AUF  DER 
Y-ACHSE" 

495  PR INT "SS  SOLLEN  DIE  PARAMETER  VERA 
ENDERT  WERDEN  7  J/N" 

500  GETA$:  IFA$="N,,THENRETURN 
505  IFA$< >" J "THEN500 

510  PR  INT"  UNTERSTER  WERT  FUER  X":INPÜT 
XU 

515  PR I NT " gJäDBERSTER  WERT  FUER  X":INPUTX 
O 

520  XE=(XO— XU)  /16:  IFXE<=OTHENFRINT"g[S  ü 
NZULAESS I GER  WERT  *" : G0T05 1 O 
525  I FSGN ( XU ) =SGN ( X 0 ) THEN  XN=BO : GQT0535 
530  XN=ABS ( XU) *25/XE+80 

535  PR  INT  "MUNTERSTER  WERT  FUER  Y":  INPUT 
YU 

540  PR I NT "  ESEPBERSTER  WERT  FUER  Y " : INPUTY 
O 

545  YE=  ( YO-' YU )  /  1 6 :  I  FYE=<  OTHENPR I  NT  "  BIS  U 
NZULAESS  I  GE  WERTE  : G0T0535 
550  REM  EINGABE  DER  FUNKTION 

555  PR INT" ^FUNKTIONEN  FLOTTEN  UND  DISK 
USSION  DRUCKEN  GS  MIT  DRUCKER  VC  1520" 
560  F0RI=0T021: PRINT" V; : NEXT: PRINT"®" 
565  IFNOTPTHENF-1 : G0SUB475: PRINT "L" 

570  PR I NT " KESaaKStALS  FUNKTION  WIRD  DAR¬ 
GESTELLT:  "  :  PRINT-flMY*" :  F+ 

575  PRINT "EfiSSl  FUNKTION  AENDERN  ? 

SS  J/N" 

580  I FSGN ( YU ) < >SGN  <  YO ) THEN595 

585  I F Y0<  =0THENYN=200 : 0 Y=ABS ( Y0*25 / YE ) +2 

00: GOT0600 

590  I FYU >=OTHENYN=— 200 : 0Y=-2ÖÖ-YU*25/YE 
G0T0600 

595  YN=ABS ( YU) *25/YE— 200: ÜY=YN 
600  GETA$:  IFAT-="N,,THEN95 
605  IFAäK  >" J "THEN600 

610  PR I NT " ÜPffiaBBSP I B  DIE  FUNKTION  EIN  i  “ 
615  PR I NT " SgENTHAELT  DIE  FUNKTION  EINEN  D 
IVISOR  ALS  FUN— T ION  VON  X,  DANN  DEN" 

620  PRINT"  DIVISOR  INSGESAMT  IN  KLAM 

MERN  SETZEN  ! 

625  INFUT"$BffiS8S3Y="aF* 

630  PRINT"Li365DEFFNF(X)="F$" 

635  PR I NT " 205 Y= " F$ " : GQT02 1 5 " 

640  PRINT"70F*="CHR$  <34>F*CHR*  <34)  " 

645  PR  INT  "45  XU=,,XU,,Ü:  XO="XO,,H:  YU="  YU"SI= 
YO="YO"IS:  0Y="GY 

650  PR INT "50  XN=" XN"U: YN="YN: PRINT"SV="S 
V,,:P="P"  :G0T045M3M 

655  P0KE631 , 19: FORI=632T0639: POKEI , 13: NE 
XT : P0KE198 , 8 
660  END 

665  PRINT  "Li  NEUE  AUFGABE  7  WM"  z  PRINT» 
NEUE  FUNKTION  IN  DIE  GLEICHEN" 


DRUCKEN 


DRUCKE 


AUSGEB 


670  PR INT" KOORDINATEN 
G" 

675  PR I NT " fisüSNEUE  KOORDINATEN 
N  N" 

680  PRINT"atKKURVENDI5KUSSI0N 
EN  K" 

685  PRINT"ENDE  E 

690  GETA$: IFA$="N"THENRUN 
695  IFA*="K"THEN250 
700  I FA$= "E " THEN400 

705  i  fa$<  >  "  g  "  THEN690  Listing  von  »Kudiplo« 

710  SV=SV+1  (Schluß) 

715  PRINT"L" j : G0SUB570 

720  GOTO 170 

READY. 


Y=COSCXt2/20D 

Y=2*C0SCXVX 


«svenhskussioh  uch  y.-i«  bis  x»  m 


Hl"  J.  STB.  L  CK 
1-14.13.' 

'-7.C54  -'S 
C-4.712  sH 
1-1.071  /V 
STRUSÄTCLLc 
t  1.071 
(  4.717. 

C  7.S34 
f  16.331-. 


r  14.J3737B 
r>TRcnAs 
-CCKC-iS. 
TAL  C-12. 


BILD 


-üch:-2. 

■fi.  I  2 .  -3->t 
K3CHC  B-iSll 
•«.  C  3.3173 
•CCM  12.4S65  /  .1337  1 
TAL  1  13.M4J  /-.127ii  l 


Y=X 
Y=-X 

Y=XxCOSCXI 
v=X/COSCX I 


üKt-aaiSKüssicN  'äs  x=-s 


«JLLST^4i»s 
'jPRUSGSIRLLE  Bt Ti -7. 334 
STRUHQSTt-.LLi-  SEIi-4. 717.4  / 
WRUHBSTB-LE  DEIS-1.W28  • 

■  »  ;  xk J  l  / 

sFKüHGsra.LB  «en  i  ■> 

SPRINGST  CfcStlßEl 
SPftUHBSTELLUiGEl 
EXTRtnA 

-iüCHC-6.12 
Tf-C  C— 2.7321 
nGLHC  2.73S; 
tal  c  6.121 


BILD  2 


Y=-X 


Y=X*COd 

Y=x/cÖd 


KUREOCläJuss'  c 


BILD  3  ZEIGT  AUSSCHNITT  AUS  BILD 
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Hardcopy  für 
den  Sieger 

In  unserer  letzten  Ausgabe  konnten 
wir  das  Görlitz-Interface  für  Epson- 
Drucker  zum  Testsieger  erklären.  Die 
Schnittstelle  verdankt  diesen  Sieg 
hauptsächlich  ihrer  universellen  An¬ 
wendbarkeit.  Dazu  gehört  auch  das 
Ausdrucken  eines  Bildschirminhaltes 
in  Verbindung  mit  Simons  Basic.  Daß 
eine  Basicerweiterung  aber  nicht  un¬ 
bedingt  notwendig  ist,  zeigt  diese 
Hardcopyroutine. 


Ein  Beispiel  für  den  Ausdruck  in  doppelter  Größe 


Mit  dem  Maschinenprogramm  ist  es  möglich,  Grafiken  im 
Maßstab  1:1  (Druckdauer  zirka  35  Sekunden,  64000  Dots) 
oder  im  Maßstab  2:1  (Druckdauer  zirka  2  Minuten,  256000 
Dots)  ausgeben  zu  lassen. 

Mit  dem  Basic-Lader  kann  das  Maschinenprogramm  in  jeden 
beliebigen  Speicherbereich  eingelesen  werden.  Sinnvoller¬ 
weise  sollte  das  Maschinenprogramm  auf  die  Startadresse 
#49152  ($C000)  gesetzt  werden,  da  hier  keine  Basic-Bytes 
verloren  gehen.  Wird  trotzdem  eine  Endadresse  für  das  Pro¬ 
gramm  festgestellt,  die  unter  #40960  ($A000)  liegt,  so  wird 
der  Beginn  des  Maschinenprogramms  gleichzeitig  als  Ende 
des  Basic-RAMs  ausgewiesen:  hierdurch  wird  verhindert,  daß 
das  Maschinenprogramm  versehentlich  von  Basic  aus  über¬ 
schrieben  wird.  Zusätzlich  kann  wegen  der  Unterschiedlich¬ 
keit  der  Interfaces  gewählt  werden,  welche  Filenummer,  wel¬ 
ches  Gerät  und  was  für  eine  Sekundäradresse  gesetzt  werden 
sollen.  Damit  die  Zeichen  ohne  Umdefinition  vom  Computer 
zum  Drucker  gesendet  werden,  ist  es  je  nach  Interface  not¬ 
wendig,  eine  entsprechende  Sekundäradresse  zu  setzen. 
Entsprechende  Hinweise  befinden  sich  sicher  bei  der  Betriebs¬ 
anleitung  des  Interfaces.  Je  nach  Bedarf  können  die  Parame¬ 
ter  der  Initialisierungsroutine  geändert  werden. 

Die  mit  dem  Basic-Lader  erzeugte  Routine  sollte  man  nach 
der  Erzeugung  abspeichern.  Für  die  verschiedenen  Speicher¬ 
konfigurationen  lassen  sich  natürlich  auch  verschiedene  Hard¬ 
copyroutinen  erzeugen.  Die  Startadresse  und  die  Endadresse 
des  erzeugten  Maschinenprogramms  werden  auf  dem  Monitor 
angezeigt. 

Wird  das  Maschinenprogramm  abgespeichert,  so  geschieht 
das  unter  dem  Namen  »HC  EPSON  xxxxx«,  wobei  xxxxx  die 
Startadresse  der  Routine  wiedergibt. 

Hinweise  zum  Maschinenprogramm: 

—  Es  wird  nur  eine  Datei  auf  den  Drucker  eröffnet;  diese  kann 
vom  Anwender  selbst  definiert  werden. 

—  Es  können  die  Grafiken  aller  acht  Grafikbildschirme  ohne 
Einschränkungen  verarbeitet  werden. 

—  Nach  dem  Ende  des  Maschinenprogramms  müssen  16  By¬ 
te  für  zwei  Umrechnungstabellen  freigehalten  werden. 


—  Es  werden  nur  die  folgenden  Byte  in  der  Zero-Page  für  die 
Routine  benötigt:  $FB-$FF,  $02,  $A7-$AA. 

Zur  Zementierung  des  Programms: 

Die  Routine  kann  im  Direktmodus,  aber  auch  unter  Pro¬ 
grammkontrolle  aufgerufen  werden.  Dabei  liegt  der  besondere 
Vorteil  des  Programms  darin,  das  sämtliche  Parameter  durch 
Basicvariablen  ausgedrückt  werden  können.  Das  Format  zum 
Ausdruck  eines  Bildes  in  Hires-Grafik  lautet: 

SYS  A,  B,  C. 

A  —  bezeichnet  die  Startadresse  der  Routine 

B  —  bezeichnet  die  Startadresse  von  einem  der  acht 

möglichen  Grafikbildschirme 

C  —  gibt  den  Maßstab  der  Wiedergabe  an.  Dabei  kann 
man  zwischen  vier  Ausgabetypen  wählen: 

0  —  gibt  das  Hiresbild  im  Maßstab  1:1  aus,  zusätzlich 
wird  die  Grafik  invertiert  ausgegeben. 

1  —  gibt  das  Hiresbild  ohne  Invertierung  im  Maßstab 

1:1  aus. 

2  —  Der  Grafikbildschirm  wird  im  Verhältnis  1:2  vergrö¬ 

ßert.  Zusätzlich  wird  das  Bild  invertiert. 

3  —  Auch  hier  wird  das  Bild  vergrößert,  die  Ausgabe 

des  Bildes  erfolgt  ohne  Invertierung. 

Wird  die  Routine  als  Maschinenprogramm  geladen,  so  muß 
man  nach  dem  Laden  »NEW«  eingeben,  um  sämtliche  Zeiger 
zu  korrigieren. 

Fehlerbehandlung: 

—  Werden  die  Angaben  nicht  durch  Kommata  getrennt,  er¬ 
scheint  SYNTAX  ERROR. 

—  Wird  eine  Startadresse  für  B  eingegeben,  die  nicht  mit  der 
Anfangsadresse  eines  der  acht  Grafikbildschirme  (0,  8192, 
16384,  24576,  32768,  40960,  49152  oder  57344)  über¬ 
einstimmt,  so  wird  je  nach  Argument  »UNDEF'D  STATEMENT« 
oder  »ILLEGAL  QUANTITY«  ausgegeben. 

—  Bei  Angabe  eines  ungültigen  Maßstabs  dagegen  wird  je 
nach  Argument  »UNDEF’D  FUNCTION«  oder  »ILLEGAL 
QUANTITY«  ausgegeben. 
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Anwendungsbeispiel: 

Zunächst  wird  mit  dem  Basic- Lader  die  Maschinensprache¬ 
routine  initialisiert.  Soll  zum  Beispiel  die  Hardcopyroutine  zu¬ 
sammen  mit  Simons  Basic  arbeiten,  so  braucht  die  vorgese¬ 
hene  Startadresse  49152  nicht  geändert  zu  werden.  Die  er¬ 
fragten  Parameter  Device  (Gerätenummer)  und  Sekundär¬ 
adresse  richten  sich  nach  dem  benutzten  Interface.  Änderun¬ 
gen  können  bei  Bedarf  durch  Überschreiben  der  alten  Werte 
vorgenommen  werden.  Nach  korrekter  Eingabe  wird  dann  das 
Maschinenprogramm  erzeugt.  Nach  Abschluß  dieser  Opera¬ 
tion  kann  dann  noch  entschieden  werden,  ob  der  erzeugte 
Code  abgespeichert  werden  soll.  Wird  die  Frage  positiv  beant¬ 
wortet,  so  wird  das  Maschinenprogramm  nach  Wahl  auf  Dis¬ 
kette  beziehungsweise  Kassette  abgespeichert.  Zum  Schluß 
wird  nur  noch  errechnet,  ob  das  Programm  in  einem  Bereich 
steht,  der  von  Basic  aus  erreichbar  ist.  Ist  das  der  Fall,  so  wird 
das  Maschinenprogramm  vor  einem  versehentlichen  Über¬ 
schreiben  geschützt. 

Ist  dann  die  Routine  einmal  erzeugt,  so  kann  man  mit  der 
Ausgabe  von  Hires-Grafiken  beginnen.  Erzeugt  man  zum  Bei¬ 
spiel  mit  Hilfe  von  Simons  Basic  eine  Hires-Grafik,  so  wird  die¬ 
se  mit  SYS  xxxxx, 57344,1  im  Originalmaßstab  ausgegeben. 
Dabei  bezeichnet  xxxxx  die  Anfangsadresse  der  Routine,  bei 
57344  liegt  der  Grafikbildschirm  von  Simons  Basic  und  der 
letzte  Parameter  1  gibt  an,  daß  die  Grafik  im  Maßstab  1:1  ohne 
Invertierung  des  Bildes  ausgegeben  werden  soll.  Nach  ord¬ 
nungsgemäßer  Eingabe  des  SYS-Befehls  beginnt  der  Drucker 
das  Bild  auszugeben. 

Bei  Bedarf  kann  man  dann  zu  einem  späteren  Zeitpunkt  die 
abgespeicherte  Maschinenroutine  nachladen.  Liegt  sie  im  Ba- 
sicbereich  (bis  #  40959, $9FFF),  so  kann  man  durch  Abtip¬ 
pen  und  Starten  der  Zeilen  144  bis  146  des  Laders  erreichen, 
daß  das  Programm  vor  Überschreibung  geschützt  wird,  ohne 
gleich  den  gesamten  Lader  zu  starten.  Dazu  ist  in  diesen  Zei¬ 
len  die  Variable  AN  durch  die  Startadresse  der  Routine  zu  er¬ 
setzen. 

Sonstige  Hinweise: 

Bevor  die  Routine  beginnt,  muß  der  Drucker  bereits  einge¬ 
schaltet  sein. 

Werden  eventuell  andere  Codes  für  die  Erzeugung  der 
Hires-Grafik  benötigt,  so  sind  die  Steuercodes,  die  die  Bit- 
Image  Schreibweise  des  Druckers  steuern,  zu  ändern.  Das 
hier  vorgestellte  Maschinenprogramm  ist  für  den  FX-80  aus¬ 
gelegt,  ist  jedoch  auch  auf  anderen  Druckern  lauffähig.  Da  das 
Assemblerlisting  nicht  abgedruckt  werden  kann,  können  sich 
Interessierte  gerne  schriftlich  an  mich  wenden. 

(Frank  Lonczewski/gk) 


Ein  Beispiel  für  den  Ausdruck  in  einfacher  Größe 
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100  REM  ******************************* 
*********************** 

101  REM  * 

* 

102  REM  *  HARDCOPYROUTINE  FUER  EFSON-D 
RÜCKER,  EASIC-LOADER  * 

103  REM  * 

* 

104  REM  *  COPYRIGHT  JUNI  1984  BY  F 

RANK  LONCZEWSKI  * 

105  REM  *  5810  WITTEN  6 , FROEBELSTRASSE 
33,  TEL* s : 02302/60933  * 

106  REM  *  CURSORSTEUERZEICHEN  STEHEN  IN 

KLAMMERN: "["  UND  "3"  * 

107  REM  ******************************* 
*********************** 

1 08  PR  I  NT “  L  CLEAR  ,  R I BHT 1 0 ,  RVSON 1  EPSON  HA 
RDCOPYROUT I NE  C RVOFF , DOWN 3 " 

1 09  I NPUT " STARTADRESSE  L R I GHT7 3 49 1 52  L LEF 
T7U " ; AN: IF  AN<0  OR  AN >53248  THEN  109 

1  10  I  NPUT  "FI  LENUMMER  C  R I GHT9  3  1 27  C  LEFT5 3  ” 
; LF: IF  LF< 1  OR  LF>255  THEN  110 

111  INPUT”DEVICECRIGHTi334CLEFT33 " ; DN: I 
F  DN<4  GR  DN  >15  THEN  111 

112  I NPUT “ SEKUNDAERADRESSE C R I GHT3 3  4  C  LEF 
T3  3  ;  SN ;  I F  SN<  O  GR  SN  >15  THEN  112 

113  I=AN: PR INT "[DOWN 1  ICH  ARBEITE  !  BI TT 
E  uTWAS  GEDULD.” 

114  G03UB  147 

115  IF  RE  THEN  GGSUB  158: GOTO  117 

116  POKE  I , A 

117  PS=PS+A:RE=Os 1=1+1 s IF  I-AN<528  THEN 

114 

118  IF  PS< >57824  THEN  PR INT" PRUEFSUMMEN 
FEHLER  1 " : END 

119  POKE  AN+62 , DN: REM  DEVICE  SETZEN 

120  POKE  AN+64 , SN : REM  SEKUN.  SETZEN 

121  POKE  AN+60 , LF : POKE  AN+72,LF: POKE  AN 
*176, LF: POKE  AN+244 , LF 

: REM  FILENR.  SETZEN 

1 22  PR  I  NT "  t  CLEAR  3  EPSON  HARDCOPYROUT  I  NE 
INITALISIERT" 

123  K=AN+475: B=INT CK/256) : K=K-B*256: POK 
E  AN+47, KsPOKE  AN+49,B 

124  PR I NT " C  DOWN  3  ST  ART ADRESSE  C  R I GHT  4  3 : " ; 
AN 

1 25  PR I NT " ENDADRESSE  C  R I GHT6 3 : " ; AN+527 

1 26  FR I NT " F I LENUMMER  C  R I GHT6  3 : " ; LF 

127  PR I NT " DEV I CE  C  R I GHT 103:  "  ;  DN 

128  PRINT "SEKUNDAERADRESSE: "  ;  SN 

129  PRINT" C DOWN 1  AUFRUF  MIT  SYS" AN " CLEFT 
3 , GRADR, MAS" 

130  PRINT" C DOWN] GRADR  :  DEZIMAL  GRAF I KB 
I LDSCH I RMADRESSE " 

131  PRINT "MAS CR IGHT33:  DEZIMAL  MASSSTAB 
C  DOWN  3 " 

132  INPUT" CODE  ABSPE I CHERN C R I GHT 4 3 Y H LEF 
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T3  IT; 

Jt-.IF  J*<>"Y"THEN  144 

176 

DATA 

20, D2, FF, CA, 10, F7 , 30, 09 

133 

INPUT" CRVSON3DCRVOFF3 ISK  ODER  CRVSO 

177 

DATA 

BD , * 1 , C8 , 20 , D2 , FF , CA , 10 

N3TC RVOFF 1 ARE  C  R I GHT3  3  D l LEFT3 I  "  ;  J  £ 

178 

DATA 

F7 , A2 , 00 , 86 , FF , 20 , *0 , F8 

: 

IF  J$<  >"D" AND  J$< >"T" THEN  133 

179 

DATA 

A6 , FF , A5 , FB , 18 , 69 , 08 , 85 

134 

IF  J$="D"THEN  D=B: GOTO  136 

180 

DATA 

FB , A5 , FC , 69 , 00 , 85 , FC , E3 

135 

D=1 

181 

DATA 

EO , 28 , DO , E7 , 20 , CC , FF , A2 

136 

PS=0: PRINT: FOR  1=688  TO  738 

182 

DATA 

7F , 20 , C9 , FF , A9 , OA , 20 , D2 

137 

GDSUB  147 : POKE  I , h: PS=PS+A: NEXT 

133 

DATA 

FF , A5 , AA , C9 , 02 , 30 , 1 6 , A6 

138 

IF  PS05381  THEN  118 

184 

DATA 

A9 , DO , 1 2 , E6 , A9 , 38 , A5 , FB 

139 

E=AN:H=rKir'(B/256)  : L=B-H*256 

185 

DATA 

E9 , 40 , 85 , FB , A5 , FC , E9 , 0 1 

140 

B=AN+52S: HE= I NT (B/256) : LE=B-HE*256 

186 

DATA 

85 , FC , 4C , *0 , 6A , A9 , 00 , 85 

141 

POKE  707 , L : POKE  71 1 , H : POKE  7 1 7 , LE : P 

187 

DATA 

A9 , A5 , FC , C5 , FE , DO , SB , A5 

OKE  7 19, HE 

188 

DATA 

FB , C5 , FD , DO , 85 , A2 , 06 , BD 

142 

POKE  693, D: AN$=MID$ (STR$ (AN) ,2):F0R 

189 

DATA 

*1 ,D4,20,D2,FF,CA, 10, F7 

1  =  1 

TD  LEN(ANf-) 

190 

DATA 

20 , CC , FF , A9 , 7F , 4C , C3 , FF 

: 

POKE  732+ I , ASC (MID$ ( AN$ ,1,1)) 

191 

DATA 

A5 , 0 1 , 48 , 78 , A9 , 34 , 85 , 0 1 

143 

NEXT  I : POKE  157, 128: SYS  688: PRINT 

192 

DATA 

AO , 07 , Bl ,FB,99,*2, 18, A9 

144 

IF  AN+543 >40960  THEN  PRINT" C DOWN 1 MA 

193 

DATA 

00, 99, *2, 10,88, 10, F3, 68 

SCH I NENPROSRAMM  WIRD  NICHT  BESCHUETZT. " 

194 

DATA 

85, 01, 58, 20, *1 ,32, AO, 07 

END 

195 

DATA 

A5 , AA , C9 , 02 , 10,OA,B9,*2 

145 

B=AN: H= INT (B/256) : L=B-H*256 

196 

DATA 

1 0 , 20 , * 1 , B2 , 88 , 10, F7 , 60 

146 

POKE  56, H: POKE  55,L:CLR:END 

197 

DATA 

B9, *2, 10,20, *1 ,68,88, 10 

147 

READ  A*:  IF  LEN  <A$)  02  THEN  PRINT" TI 

198 

DATA 

F7 , 60 , A2 , 07 , AO , 07 , B9 , *2 

PPFEHLER  IN  ZEILE"PEEK (63) +PEEK (64) *256 

199 

DATA 

18, 29, 80, 20, *1 ,58, 18, 7D 

: 

END 

200 

DATA 

*2,10, 9D ,*2,10, 88 , 1 0 , EE 

148 

Al =ASC ( A*>  : A2=ASC ( R I GHT* ( A$ , 1 ) ) 

201 

DATA 

AO , 07 , B9 , *2 ,18, OA , 99 , *2 

149 

IF  Al =42  THEN  A1=48:RE=1 

202 

DATA 

18,88, 10, F6, CA, 10, DD, 60 

150 

IF  Al< 48  OR  Al >57  THEN  IF  Al< 65  OR 

CM 

20  .JATA 

85 , 02 , 9S , CO , 00 , FO , 05 , 46 

Al >70  THEN  157 

204 

DATA 

02 , 83 , 1 0 , F7 , AS , A5 , 02 , 60 

151 

IF  A2<48  OR  A2>57  THEN  IF  A2<65  OR 

205 

DATA 

85 , A8 , 98 , 48 , A5 , A9 , FO , 07 

A2>70  THEN  157 

206 

DATA 

AO , 04 , 06 , AS , 88 , DO , FB , AO 

152 

IF  Al >64  THEN  A1=A 1-55: GOTO  154 

207 

DATA 

00 , 84 , A7 , A5 , AS , 29 , SO , 20 

153 

IF  Al< 58  THEN  A1=A1-4B 

208 

DATA 

*1 ,A6,A5,A8, 29, 40,20, *1 

154 

IF  A2>64  THEN  A2=A2~55: GOTO  156 

209 

DATA 

A5 , A5 , A8 , 29 , 20 , 4A , 20 , *  1 

155 

IF  A2<53  THEN  A2=A2-48 

210 

DATA 

A5 , A5 , A8 , 29 ,10, 4 A , 4A , 20 

156 

A=A1*16+A2: RETURN 

211 

DATA 

*1 , A5,48,20,*l ,B2,69,20 

157 

PR I NT " UNGUELT I GER  HEXCODE  IN  ZEILE" 

212 

DATA 

*1 , B2 , 68 , A8 , 60 , 4A , 48 , 20 

PEEK (63) +PEEK (64) *256: END 

213 

DATA 

*1 , AC , 68 , 4A , 18, 65 , A7 , 85 

150 

B=AN+A2*256: GOSUB  147: 1=1+1 : B“B+A 

214 

DATA 

A7 , 60 , 48 , A5 , AA , 29 ,01 , FO 

159 

HB=INT (B/256) : B=B-HB*256: POKE  1-1 ,B 

215 

DATA 

04 , 68 , 4C , D2 , FF , 68 , 49 , FF 

: POKE  I, HB: RETURN 

216 

DATA 

4C , D2 , FF , 0 1 , 40 , 00 , 2A , 1 B 

160 

DATA  20 , FD , AE , 20 , SA , AD , 20 , 9B 

217 

DATA 

02,80, 04 , 2A , 1B , 00 , OD , 44 

161 

DATA  BC , A5 , 65 , FO , 03, 4C , E3 , A8 

218 

DATA 

1 B , 1 7 , 33 , 1 B , OA , OA , OA , OA 

162 

DATA  A5 , 64 , AA , 29 ,10, DO , F6 , 8E 

219 

DATA 

OA , 32 , 1B, 00,48,41, 52, 44 

163 

DATA  *0 , 58 , 20 , FD , AE , 20 , 9E , B7 

220 

DATA 

43 , 4F , 50 , 59 , 20 , 45 , 50 , 53 

164 

DATA  EO , 04 , 30 , 03 , 4C , AE , B3 , 86 

221 

DATA 

4F , 4E , OD , OD ,23,43,29,20 

165 

DATA  AA , 8A , 29 , 80 , 30 , F6 , A9 , DB 

222 

DATA 

20 , 4 A , 55 , 4E , 49 , 20 ,31 ,39 

166 

DATA  AO,Ci ,20, 1 E, AB, A9, 00,85 

223 

DATA 

33,34,20,42,59, OD ,46,52 

167 

DATA  B7 , 85 , A9 , A9 , 7F , A2 , 04 , AO 

224 

DATA 

41 , 4E , 4B , 20 , 4C , 4F , 4E , 43 

168 

DATA  04, 20, BA, FF, 20, CO, FF, A2 

225 

DATA 

5A , 45 , 57 , 53 , 4B , 49 , OD , 00 

169 

DATA  7F , 20 , C9 , FF , A2 , 06 , BD , *  1 

226 

DATA 

A9 ,01 , AO ,01 , A2 , 08 , 20 , BA 

170 

DATA  CD, 20, D2, FF, CA, 10,F7,A9 

227 

DATA 

FF , A9 , OF , A2 , D3 , AO , 02 , 20 

171 

DATA  00, 85, FC, A9, 00, 85, FB, IS 

228 

DATA 

BD , FF , A9 , OO , 85 , FB , A9 , OO 

172 

DATA  69, 40, 85, FD, A5, FC, 69, IF 

229 

DATA 

85 , FC , A9 , FB , A2 , 00 , AO , 00 

173 

DATA  85,FE,A5,AA,C9, 02, 10,05 

230 

DATA 

4C , DS , FF , 48 , 43 , 20 , 45 , 50 

174 

DATA  A9 , 09 , 20 , D2 , FF , A2 , 04 , A5 

231 

DATA 

53 , 4F , 4E , 20 , 20 , 20 , 20 , 20 

175 

DATA  AA,C?,02, 10,OB,BD,*1 ,C3 

232 

DATA 

20 , 20 , 20 
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»Escape«  für  den  VC  20  ohne  Erweite¬ 
rung  ist  ein  Spiel  in  Maschinenspra¬ 
che  zum  Trainieren  des  Reaktionsver¬ 
mögens  des  Spielers. 

Sie  müssen  versuchen,  Ihr  Raumschiff  möglichst  lange  vor 
einer  Kollision  mit  fremden  Raumschiffen,  Planetoiden  und  an¬ 
deren  kosmischen  Erscheinungen  zu  retten.  Gespielt  wird 
mit  einem  Joystick.  Für  den  VC  20-Besitzer  ohne  Joystick 
kann  das  Maschinenprogramm  leicht  durch  eine  geringfügige 
Änderung  des  Programms  umgeschrieben  werden.  Das  Ein¬ 
tippen  und  Abspeichem  aller  sieben  Teiiprogramme  muß  exakt 
in  der  Reihenfolge  Listing  1  bis  7  erfolgen.  Nachdem  alle  Teil¬ 
programme  abgespeichert  worden  sind,  geht  man  wie  folgt 
vor: 

1.  Alle  Programme  bis  auf  das  letzte  einladen  und  starten 

2.  Falls  über  Tastatur  gespielt  werden  soll,  müssen  nun  folgen¬ 
de  Adressen  geändert  werden: 

POKE  6404,197 
POKE  6405,0 
POKE  6407,18 
POKE  6421,197 
POKE  6422,0 
POKE  6424,17 
POKE  6437,9 
POKE  6450,26 
POKE  6463,64 

statt  dem  Joystick  werden  nun  folgende  Tasten  abgefragt:  A, 
W,  D,  X. 

3.  Letztes  Programm  einladen  und  starten. 

Für  einen  geübten  Programmierer  läßt  sich  dieses  Pro¬ 
gramm  leicht  in  nur  zwei  Teilen  (Anleitung  und  Hauptpro¬ 
gramm)  abspeichern  (durch  ändern  der  Vektoren  43/44, 45/46 
und  SAVE’’Escape”,1,3).  Die  Programmversion  mit  den  sechs 
einzelnen  Teilprogrammen  wurde  deshalb  gewählt,  damit  auch 
ungeübte  Programmierer  dieses  Programm  ohne  Schwierig¬ 
keiten  eingeben  können. 

Da  das  Maschinenprogramm  einen  Basicschutz  für 
»Escape-6«  enthält,  muß  dieses  »Escape-6«  genau  eingege¬ 
ben  werden  (auch  die  REM-Zeilen!). 

Aber  nun  viel  Spaß  beim  Spielen.  Übrigens  beträgt  die  bisher 
höchste  erreichte  Punktzahl  4410.  Schaffen  Sie  mehr? 

(Michale  Werner/ev) 


X  : 

für  FOR-NEXT-Schleifen 

Zeitschleife, 

A$: 

rotierender  Text,  Bewertung,  Ja/Nein- 

Abfragen 

B$: 

rotierender  Titel 

L: 

Länge  von  A$,  Anzahl  der  verschiedenen 

Zeichen 

A  : 

Länge  von  B$,  zufällige  Position 

D$: 

obere  Begrenzung  des  rotierenden  Titels 

E$: 

untere  Begrenzung  des  rotierenden  Titels 

C$: 

für  Anfängen  (j'/n) 

F  : 

Zeitschleife,  Anzahl,  Hindernisse,  Tonhöhe 

G  : 

Position  der  vier  Raumbasen 

M  : 

jeweilige  Zeichen 

N  : 

jeweilige  Zeichenfarbe 

F  : 

Anzahl  der  zu  setzenden  Hindernisse 

Benutzte  Basic-Variablen  und  Strings 


36879: 

Bildschirmfarbe  238  und  25  und  8  (normal 
27) 

36881: 

Bildschirmverschieben  155-38  (normal  38) 

56: 

Basic-Speicher  Ende  verschieben  21  (nor¬ 
mal  30) 

775: 

Listschutz  213  (normal  199) 

788: 

RUN/STOP-Taste  ausschalten  194  (normal 
191) 

37150: 

RESTORE-Taste  ausschalten  2  (normal 

130) 

Liste  der  verwendeten  POKE-Befehle 


5380-5470: 

Scrollen  des  Bildschirms  nach  oben 

5471-5561: 

Scrollen  des  Bildschirms  nach  unten 

5562-5658: 

Scrollen  des  Bildschirms  nach  rechts 

5659-5755: 

Scrollen  des  Bildschirms  nach  links 

5756-6066: 

Bewegung  der  Raumschiffe 

6067-6097: 

Punktewertung 

6098-6161: 

Setzen  neuer  Raumschiffe 

6162-6192: 

Basicprogrammschutz 

6193-6272: 

Explosion  und  Herabziehen  des  Bild¬ 
schirms 

6273-6300: 

Bewegung  der  Hindernisse 

6301-6519: 

uo20-6546: 

Abfrage  d.  Joysticks  u.  Steuerung  d. 
Unterprogramme 

Rotieren  des  Triebwerkringes 

Speicherplatz  des  Basicprogramms: 

4097-7307: 

Basicprogramm  zur  Punktwertung  und 
Setzen  des  Bildschirminhaltes  zum  Spiel 

Speicherplatz  der  benötigten  Sonderzeichen: 

7176-7307: 

definierte  Zeichen  für  Spiel: 

Benutzte  indirekte  Adressenspeicher  für  Maschinen¬ 
sprache: 

0-3 

97-100 

Speicher  für  Maschinensprache-»Variablen«: 

826-847: 

Zwischenspeicher  für  Zeichen  beim 
Bildschirmscrollen 

848-869: 

Farbzwischenspeicher  für  Farbe  der 
Zeichen  beim  Bildschirmscrollen 

870: 

augenblickliches  Zeichen  zur  Bewegung 
der  Raumschiffe 

871: 

neue  Flugrichtung  der  Raumschiffe 
(1-8) 

872: 

verloren?  wenn  Inhalt  von  872  =  1, 
dann  Rücksprung  ins  Basic 

873,874,875: 

Punktezähler 

876,877: 

Taktzahl  für  das  Setzen  neuer  Raum¬ 
schiffe 

878: 

Triebwerkring  rotieren  (1-4) 

Speicherbelegung  von  »Escape« 


86 
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10  PRINT1 

1 1  GETAS : I FA$= " J " THENA= 1 : GQT020 

12  I F A:$= " N " THEN20 

13  G0T011 

20  PR  I  NT 11  »I«1*I*»PPPBIC0PYR  I GHT  BY(&*lBIE£BBSi 
MICHAEL  WERNER^iaiBH9ll!l?83" 

21  FORX=1T03000: NEXT 

24  I F A=0THEN55 

25  PR I NT " L'iSMflS I E  HABEN  SICH  DURCH  «»EIN 
EN  FEHLER  IHRES  " 

26  PR  I  NT  "  fffiliH YPERRAUMTR I  EBWERKESgßlfciM  I T 
IHREM  RAUMSCHIFF" 

28  PRINT  "«»HIN  EINEM  VERKEHRS-fcPPPKRE I CH 
EN  SEKTOR  DERKPPPPPGALAX I S  VERIRRT." 

30  PR I NT " K3D I ESER  SEKTOR  WIRD  VONIBBISEINE 
R  UNTERENT-CaaMÄMfclWICKELTEN  RASSE" 

31  FRINT"»PPPPPPPPPPPPB»iBiaSPACEM"  :  UJAIT19 
7,32 

33  PRINT-LZStBUBEVOELKERT.  " 

34  PR  INT  "WIDEREN  RAUMSCHI FFEßMIMÜWERDEN 
MIT  VERALTETENfiaUttHATOMTR  I EBWERKEN  " 

35  PR  I  NT  "  KEBETR I  EBEN .  ALSO  HUETENKWSIE 
SICH  DAVOR  MITMWDIESEN  FREMDEN  RAUM-" 

36  PR I NT " IgBSCH I FFEN  ZUSAMMENZU-BPPETDSSE 
N!  ■ 

37  FR  I  NT  "  KCTPPPPPPPPPPPPBtaSH  I  FTMg"  ;  WAIT6 
54,1 

40  PRINT"LflPPPKIE  STEUERN  IHRBPPPPPPPPRA 
UMSCHIFF  MIT  KPPPPPPPPPEUOY-STICKg. " 

41  PR  INT"  ^ERSUCHEN  SIE  MQEG-KPPPPLICHS 
T  LANGE  DURCH  E0UGEKONNTE  MANOEVER  DEN" 

42  PR I NT " KUFREMDEN  RAUMSCHIFFEN  BljAUSZUW 
EICHEN.  PASSENIMfSIE  HIERBEI  AUCH  AUF" 

,15 

45  PRINT-LfiUDIE  SICH  STAEND I GKMHMMVERAEN 
DERNDEN  H I NDER-EMM I  SSE  (MANCHMAL  FAST" 

46  PR  INT  "^UNSICHTBAR)  AUF .  KPPPPPPtAUSSER 
DEM  KOENNEN  SIEEMilMICHTS  UEBER  DEN" 

47  PRINT"aÜWELTRAUMMUELL,UEBER81ftIDIE  PLA 
NETEN  UND  UEBER0UDIE  BASEN  DER  FREMDEN" 

48  PR I NT ” ASSE  HINWEGFLIEGEN ! " 

49  PR I  NT " BPPPPPPPPPPBS5SPACE^*"  :  W A I T 1 97 , 3 
2 

50  PR I NT " LJ9^tLS0 ,  1CAPT A I NB,  VER-WMHB9SUCH 
EN  SIE  IHR  GLUECK  !  (SBABER  ACHTUNG:  B" 

51  PR I NT " ^SOLANGE  SIE  SICH  0NICHTHS  BEWE 
GEN, BEKOMMEN  S I EBPPPIAUCH  HKEINEB  PUNKTE! 

II 

55  PRINT-KWPPIfrlUN  BITTE  DIE  mittPFOLG 
ENDEN  6  KURZ-" 

56  PR I NT " gppROGRAMME  EINLADEN  «PPPPIJND  A 
UCH  BSTARTENB !  !  dl"  :  NEW 

READY. 


Listing  1.  Anleitung  zu  »Escape« 


SEARCHING  FOR  * 

O  PRINT"Ü" 

1  CLR : P0KE56 , 21 : F0RX=0T051 1 : P0KE7 168+X , P 
EEK (32768+X ) : NEXT: F0RX=0T0131 : READA 

2  PGKE7176+X , A: NEXT 

3  DATAO, 48, 121 ,251 , 174,251 , 121,48,240,18 
4,248,232,120,4,3,2,56,108,254,238,124,1 
6,56,108 

4  DATA15, 29,31 ,23,30,32, 192,64, 12,158,22 
3,117,223,158,12,0,64,192,32,30,23,31 ,29 
,15 

5  DATA54 ,28,8,62,119,127,54,28,2,3,4,120 


,232,248,184,240,60,126,255,153,255,126, 
189,129 

6  DATA136, 73, 43, 31 ,255, 19,246, 124, 17,146 
,212,248,255,200, 111,62,58,31,21,250,31 , 
43,73 

7  DATA136, 92, 248, 168,95,248,212,146,17,1 
6,20,88,63, 252 ,26,40,8,0,78,124,48,26,30 
,12,0 

8  DATA44, 2, 40, 128,66, 16,5, 144, 153,51 , 102 
,204 

9  FQRX=5380T05561 : READA: POKEX ,A: NEXT 

10  DATA162,0, 189,0,30,157,58,3,189,0,150 
, 157,80,3,232,224,22,208,239,160,24,169, 
32,145 

1 1  DATAO, 162,0, 189,22,30, 157,0,30, 189,22 
, 150,157,0,150,232,224,255,208,239,169,9 
, 145,0 

12  DATA169,0, 145,2, 162,0,189,21 ,31 , 157,2 
55,30,189,21,151, 157,255, 150,232,224,251 
, 208 , 239 

13  DATA162,0, 189,58,3, 157,228,31 ,189,80, 

3.157.228. 151.232.224.22.208.239.96 

14  DATA162, 0,189,228,31,157,58,3, 189,228 
, 151 , 157,80,3,232,224,22,208,239,160,24, 
169,32 

15  DATA145,0, 162,255,189,228,30, 157,250, 
30,189,228,150,157,250,150,202,224,0,208 
,239 

16  DATA169, 9, 145,0, 169,0, 145,2,162,229,1 
89 , 255 ,29,157,21,30,189, 255 ,149,157,21,1 
50,202 

1 7  DATA224 , 0 , 208 , 239 ,162,0,189,58,3,157, 

:  . 0 , 30 • 189,80,3,157,0,150, 232 , 224 , 22 , 208 , 2 

39.96 
READY. 


Listing  2.  Grafik  und  Maschinensprache  für  »Escape« 
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,7,141 

12  DATA102, 3, 160, 23, 208, 31, 201, 2, 208, 7,1 
41,102,3,160,1,208,20,201 ,3,20B,7, 141 , 10 
2,3, 160 

13  DATA2, 208, 9, 201, 4, 208, 8, 141, 102, 3, 160 
,3,32,103,23, 165,97,24,105,1, 144,4,230,9 
8,230 

14  DATA100, 133,97,165,99,24, 105,1, 133,99 
, 165,97,201,226,208,181,165,98,201,31,20 
8,175 

READY. 


Listing  3.  Maschinenspracheroutinen  für  »Escape« 


o  fr  i  nt  -  usaaamaamamMSB&  i  tte  warten!!" 

1  P0KE56 ,21 : F0RX=5B71TQ6161 : READA: POKEX, 
A: NEXT 

2  DATA169, 202, 133,97, 133,99, 169,31 , 133,9 
B, 169, 151, 133, 100, 162, 0,160, 23, 177, 97, 20 
1,9, 16,8 

3  DATA201, 5, 48, 4, 233, 4, 145,97,200,232,22 

4.23.208.236. 160.24.177.97.201.5.208.7.1 

41.102.3 

4  DATA1 60, 25, 208, 31 ,201 ,6,208,7, 141 ,102, 
3, 160,47,208,20,201 ,7,208,7, 141 , 102,3, 16 
0,46,208 

5  DATA9 , 201 , B , 208 , 8 , 141 , 102, 3 , 160, 45, 32, 
103,23, 165,97,56,233,1,176,4,198,98,198, 
100, 133 

6  DATA97 ,165,99,56, 233 ,1,133,99,165,97,2 
01,231,208, 1B1 ,165,98,201,29,208,175,96, 
174, 103 

7  DAT A3, 224, B, 240, 5, 238, 103,3,208,5,162, 
1,142,103,3,177,97,201,32,208,16,173,102 
,3,145 

8  DATA97 ,169,2,145,99,160,24,169,32,145, 
97,96,201,9,208,8,169, 1,141,104,3,24,144 
,243,201 

9  DATA14, 240, 13, 201, 15,240,9,201,16,240, 
5,201,9,48,1,96,160,24,173,103,3,145,97, 
96 

10  DATA173, 105,3,24, 105,3, 144,3,238, 106, 

3.141. 105.3.173. 106.3.201.255.240.1.96.1 
69,0,141 

11  DATA106, 3, 238, 107,3,96, 169, 100, 133,97 
, 133,99,169,30,133,98, 169,150,133, 100,17 

3.108.3 

12  DATA24, 105, 1 , 144,3,238, 109,3,141 , 108, 

3.173. 108.3.201.50.240.1.96. 172.36.145.1 
77,97 

13  DATA201 ,32,240, 1 ,96, 173, 103,3,145,97, 
169,2,145,99,169,0, 141 , 108,3, 141,109,3,9 
6 

READY. 


Lir 


5  DATA15, 144, 169, 0,133, 161, 165, 161, 201,1 
, 208 , 250 ,169,38,141,17,144,24,105,1,201, 
180,208 

6  DATA1, 96, 162,0, 160,0,200, 192,255,208,2 
51,232,224,10,208,244,24,144,228 

7  DATA234 , 234 , 234 ,110,128,28,46,129,28,1 
10 , 130,28 ,46,131,28,110, 132 ,28,46,133,28 
,110, 134 

8  DATA28, 46, 135,28,96,169,0,141, 104,3, 14 
1 , 105,3,141 , 106,3,141,107,3,141,108,3,14 
1,109,3 

9  DAT A 169 , 238 , 141 , 15,144,169,15, 141,14,1 
44, 169,194,141,20,3, 169,2,141 ,30,145,169 
,21 

10  DAT Al 33, 56, 169,1,141 ,110,3,169,1,141 , 
103,3,169,229, 133,0,133,2,169,30,133,1, 1 
69 

11  DATA150, 133,3,32, 18,24 
READY. 


Listing  5.  Maschinenspracheroutinen  für  »Escape« 


WARTEN ! 


0  PRINT"| 

1  P0KE56 , 21 : F0RX=6372T06546: READA: POKEX , 
A : NEXT : PQKE775 ,213 

2  DATA32, 179,23,32, 124,22,32,210,23,32, 1 
29,24,32,120,25,173,104,3,201 , 1,208,4,32 
, 49,24 

3  DATA96, 169, 127, 141,34, 145,173,32,145,2 
01 ,119,208,5,160,25,76,66,25,169,255, 141 
,34,145 

4  DATA173,31 , 145,201,110,208,5,160,23,76 
.  ,25,201,46,240,247,201 , 122,208,5,160, 
2,76 

5  DAT A66 , 25 , 20 1 ,58,240,247,201 , 1 18,208,5 
,160,46,76,66,25,201,54, 240 , 247 ,201,24,2 
40,165 

6  DATA177, 0,201 ,32,240,7,201 ,9,176,155,7 
6,250,24,169,255,141,12,144,192,23,208,3 
,32,186 

7  DATA21, 192, 2, 208, 3, 32, 95, 21, 192,46,208 
,3,32,4,21 , 192,25,208,3,32,27,22, 169,0,1 
41 , 12 

8  DATA 144 , 76 , 228 , 24 , 174, 1 10,3,224,4,240, 
5,238,110,3,208,5,162,1 ,142,110,3,174,11 
0,3,189 

9  DAT A 135 , 28 ,141, 75 , 28 , 96 
READY. 


Listing  6.  Maschinenspracheroutinen  für  »Escape« 


Listing  4.  Maschinenspracheroutinen  für  »Escape« 


WARTEN ! 


0  PRINT  "LJ 

1  PQKE56 ,21s F0RX=6 1 62T0637 1 : READA: POKEX , 
A: NEXT 

2  DATA173, 100,20,201 ,0,240,3,76,34,253, 1 
73,101,20,201,0,240,3,24, 144,243,173, 102 
,20,201 

3  DATAO, 240, 3, 24, 144, 233, 96, 162, 0,160,0, 
173,36,145,141 , 15,144,173,36,145,141,12, 
144,201 

4  DATA128, 48, 246, 200, 192,255,208,235,232 
,224,150,208,228,162,191,142,20,3,169,23 
8,141 


O  PR  INT  "Lj"  :  P0KE36879 ,8: A$="  VON  MICHAEL 
WERNER  ":L=20:B*="  *  ESCAPE  *  " :  A= 

18: F=50 

1  P0KE56 ,21: RESTORE : D$= " _ 

;  e$= - - 

2  A$=RIGHT*<A$, 1 > +LEFT$ < A$ , L-l ) :B$=RIGHT 
* ( B* , A- 1 ) +LEFT$ ( , 1 ) 

3  PR INT" £3"; A$; LEFT$ <A$,2) :  PR  I  NT  "  FEEET' :  D 
$ ; B$ ; LEFT $ ( B$ , 4 ) ; E$ 

4  PRINT"HääMfcfcMlANFANGEN(J)?,,:GETC£:  IFC 
i="J"THEN7 

5  PR I NT " laKKKEKKKt"  s  A$;  LEFT$  (A$  ,2)  :FORX  =  lT 

□F : NEXT : F=F- 1 : GGT02 

7  PRINT " U"  : P0KE36869 , 255 : P0KE36878 , 1 5 : PO 
KE36B79 , 238 : P0KE7933 , 9 : P0KE38653 , 0 

8  READG : I FG  >0THENPÜKE30720+G , O : P0KE3072 1 
+G , 0 : P0KE30742+G , 0 : P0KE30743+G , 0 

9  I FG  >OTHENPOKEG ,10: POKEG+ 1,11s POKEG+22 , 
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1 2 : PQKEG+23 ,13: GÜT08 

10  F=0:L=0:M=14:N=7:DATA7721 ,7815,7962,8 
064,0,16,1 , 15,4 

11  A=INT (RND ( 1 ) *506) +7680: IFPEEK ( A) < >32T 
HEN11 

1 2  POKEA , M : PGKEA+30720 , N : F=F+ 1 : I FF<  5THEN 
11 

1 3  L=L+ 1 : I FL< 3THENREADM : READN : F=0 : GOTO 1 1 

1 4  SYS630 1 : POKE788 ,194: P0KE36869 , 240 

1 5  F=PEEK ( 873 ) +256*PEEK ( 874 ) +4096*PEEK ( 8 
75) : I FF  >2200THENA^= " SOGAR " : G0T020 

16  I FF  > 1 600THEN A$= " UNERWARTET " : G0TO20 

17  I  FF  >  1 OOOTHEN A*=  "  MUEHEVOLL  ’* :  G0T020 
181 FF< 500THENA$= " NUR " : GGT020 

19  A$=" GERADE" 

20  P0KE36879 ,25:  PR  I  NT ’’ LjSiEEESSS  I E  KONNTEN 
" ;  A$ 

21  PRINT"Hä»J";F;  "rairail^üNKTE  ERREICH 
EN!  !  u 

22  PR I NT » C*Ii»M.iT RAUEN  SIE  SICH  NOCH  ?8I»M 


<J/N> “ 

23  F= 1 28 : FORG= 1 55T038STEP- 1 : F=F+ 1 : P0KE36 
876 , F : PGKE36B8 1,6: NEXT 

24  PO KE 368 76 , 0 : GET A$ : I FA$= " J " THENRUN 

25  IFA$="N"THENPaKE7BB,34 

26  G0T024 

27  REM  M.  WERNER 

28  REM  PARADE IS  38 

29  REM  8120  WEILHEIM 

READY. 

Listing  7.  »Escape«  —  Das  Hauptprogramm 

Programm  »Escape« 

S*€R 

Basic 

Hindernisse  setzen 

Sprung  in  Maschinensprache 

*  1 

—  neues  Spiel? 

1 

1 

Ja 

Nein 

1 

RUN 

POKE  788,34 

1 

Programmende 

1 

1 

1 

1 

1 

I 


MASCHINENSPRACHE 

Maschinen-Variablen  alle  neu  setzen 

Basicprogrammschutz 

Solange  nicht  verloren 

Bewegung  der  Raumschiffe 

Rotieren  des  Triebwerkringes 

Bewegung  der  Hindernisse 

Setzen  neuer  Raumschiffe 

^  Tastaturabfrage 

Ja  drückt?,^---— 

Punkte  zählen 

Bildschirm  scrollen 

VERLOREN 

Rückkehr  ins  Basic 

Die  Programmstruktur  von  »Escape« 


Pa  c- Boy  —  die 

Herausforde¬ 

rung 

Die  Herausforderung,  die  dieses  Pro¬ 
gramm  an  Sie  stellt,  ist  zweifach.  Zum 
ersten  sind  dies  die  128  verschiede¬ 
nen  Schnelligkeitsgrade.  Andererseits 
müssen  Sie,  um  das  Programm  einzu¬ 
geben,  5939  —  in  Worten:  fünftau¬ 
sendneunhundertneununddreißig  — 
DATAs  eintippen. 


Das  Programm  lehnt  sich  stark  an  die  herkömmlichen  »Pac- 
man«-Spiele  an  und  ist  mit  folgenden  Einzelheiten  ausgestattet 
(Bilder  dazu  auf  Seite  68): 

—  Es  werden  alle  acht  Sprites,  teilweise  in  Multicolor,  verwen¬ 
det, 

—  Es  wird  ein  vollständiger  neuer  Zeichensatz  definiert, 

—  Das  Programm  läuft  mit  Ausnahme  der  Einleitung  und  des 
Endes  in  reiner  Maschinensprache,  und  ist  daher  sehr  schnell, 

—  High-Scorewertung, 

—  Einsatz  des  Soundchips. 

Pogrammbeschreibung: 

Nach  bekanntem  Schema  muß  der  Spieler  bei  diesem  Spiel 
versuchen,  seinen  »Pac-Boy«  möglichst  lange  durch  ein  Laby¬ 
rinth  zu  bewegen,  ohne  dabei  von  den  umherlaufenden  Gei¬ 
stern  erwischtzu  werden.  Frißt  man  die  Pillen,  so  erhält  man  je¬ 
weils  fünf  Punkte.  Indem  man  aber  eines  der  vier  Nahrungs¬ 
stücke  frißt,  kann  man  kurzzeitig  den  Spieß  umdrehen  und  die 
nun  flüchteten  Geister  jagen.  Man  erhält  hier  pro  erlegtem 
Geist  einen  Bonus  von  200  Punkten. 

Der  Zustand  der  Geister  zeigt  sich  immer  in  deren  Farbe. 
Zur  Bedienung  des  Programmes: 

Zuerst  sieht  man  eine  kurze  Einleitung,  in  der  alle  Mitwirken¬ 
den  vorgestellt  werden.  Darauf  folgen  die  Wahl  der  Schwierig¬ 
keitsgrade  und  das  eigentliche  Spiel.  Gelenkt  wird  der  Vielfraß 
übrigens  mit  den  Tasten  f  5,  f  7,  z  und  x  für  oben,  unten  links 
und  rechts. 

Zum  Eingeben  des  Programmes: 

Zuerst  müssen  die  beiden  Listings  »Pac-Boy«  und  »Data- 
Pac«  eingegeben  und  dann  abgespeichert  werden. 

Jetzt  startet  man  »Data-Pac«  und  kann  sich  aussuchen,  ob 
man  die  DATA-Zeilen  testen  oder  im  Programm  fortschreiten 
will. 

Wenn  keine  Fehler  aufgetreten  sind,  wird  dann  ein  neues, 
reines  Datenprogramm  generiert,  das  dann  später  sehr  schnell 
vom  Hauptprogramm  nachgeladen  werden  kann. 

Gestartet  wird  das  Programm  duch  das  Einladen  von  »Pac- 
Boy«  und  nachfolgendem  RUN.  Zuletzt  ist  noch  zu  bemerken, 
daß  die  Floppy-Station  nach  Abänderung  der  entsprechenden 
Zeile  durch  die  Datasette  ersetzt  werden  kann. 

(H.  Schlangmann/rg) 
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Für  den  Interessierten  eine  Auflistung  der  Maschinen- 

Unterprogramme  und  ein  Flußdiagramm: 

$  3000 

-  37FF 

Zeichen-DATAs 

$  3800 

-  3BE7 

Labyrinth 

$  3BE8 

-  3C17 

VIC-Daten 

$  3C18 

-  3C1F 

Spriteblöcke 

$  3C20 

-  3CBF 

Zwischenspeicher 

$  3CC0 

3FFF 

Spritedaten  (Block  0-12) 

$  4000 

-  4143 

Tastaturabfrage  +  Bewegung 

$  4144 

-  4176 

Set  up  VIC,  Set  up  SID 

$  417A 

-  41D9 

Bildschirmaufbau  1.  Teil 

$  41  DA 

-  4330 

Kollisionstests,  Sound,  Score 

$  433C 

-  437E 

Bildschirmaufbau  2.  Teil 

$  437F 

-  44FD 

verschiedene  Geisterbewegungsun¬ 
terprogramme 

$  4500 

-  4574 

Hauptschleife  (siehe  Flußdiagramm) 

+  High-Score 

$  458C 

-  4731 

Geistbewegung 

rFlußdiagramm  der  Hauptschleife  (stark  vereinfacht) 


Listing  »PAC-BOY« 

10  GUTQQ36: **************************** 
12  *  * 

14  *  PAC-BOY,  EIN  ARCADE-GAME  * 

16  *  * 

18  *  GESCHRIEBEN  VON:  * 

20  *  * 

22  *  HARALD  SCHLANGMANN  * 

24  *  * 

26  *  MOOSRAIN  54  * 

28  *  * 

30  *  8110  MURNAU  * 

32  *  * 

34  ************************************ 
36  : 

38  : 

40  I  FSW=OTHENSW=  1 :  LOAD 11 MA-PAC  "  ,  8 ,  1 
42  SYS 1 6708 : P0KE53248+2 1,0: RESTORE 
44  DATA 1 BO, 131 , 180,155,214,155,248,155 

46  DATA ISO, 179,214, 179,248, 179,26, 179 

47  DATA 128 

50  F0RT=0T016: READA: P0KE5324S+T , A: NEXT 

52  GOSUBIOOO 

53  P0KE5324S+21 ,255: POKE 198,0 

54  GET At : I FA$= " " THEN54 

56  PGKE5324B+21 ,0:PRINT“ US  -\£** 

**  PAC.  TBOY  ****^— 

58  PRINT 
60  PRINT"  MSE 

62  PR  INT  "IS  ZUERST  KANNST  DU  ABER  NOCH  DI 
E  ®"; 

64  PRINT "(S  SCHWIERIGKEITSSTUFE  AUS  DEM  B 
EREICH  ; 

66  PRINT"|Sj  Ä0..127Ü  WAEHLEN,  WOBEI  O  AM 
SCHNELL-  »" : 


86  PRINT 

90  PR I NT IT  EINEM  TASTENDRUCK  GEHTS 
LOS.  .  .  @-!! 

92  GETA-f: IFA$=" "THEN92 

95  F0RT=0T0500: NEXT 

100  REM  *****  HAUPTROUTINE  ***** 

110  SYS17664 

1 20  FÜRT=OTO 1 000 : NEXT : P0KE53248+2 1 , 0 
130  GOSUB 1 100 

"THEN140 


-iS*-*-*-*  PAC/«" ; 


140  GETA*:IFA*<> 

150  G0T042 
1  '0  PRINT"UC< 

1001  PRINT"1!!- BOY  ****■- 

1002  PRINT"  " ; 

1003  PRINT" 

1004  PRINT"L;,-iS  ! 

1005  PR  INT  "iS 

1006  PR  INT  "IS  VERSUCHE  MIT  DEINEM® 

1007  PR  INT  "IS  'PAC-BOY'  IN  EINEM  H 

1008  PR  INT  "13  LABYRINT  MOEGLICHST* 

1009  PRINT"ij3  LANGE  DEN  UMHER-  ■ 

1010  PR  INT  "iS  LAUFENDEN  GEISTERN  « 

1011  PRINT"i3AUSZUWEICHEN  UND  ■ 

1012  PRINT "13  DABEI  VIEL  ZU  FRESS* 

1013  PRINT  "ISEN.  .  .  ■ 

1014  PRINT"  '-IS  ■ 

1015  PRINT"ÜS  *-•' 

1016  PRINT" 

1017  PRINT" 

1018  PR I NT " 5J— teff) I E  SPIELFIGUREN:  » 

1019  PRINT" 

1020  PRINT"  "■ 

1021  PRINT"  "i 

1022  PRINT" 

1023  PRINT" 

1024  PRINT" 


DER  HELD 


68 

PRINT"iä  STEN  IST... 

1025 

PRINT" 

II  » 

5 

f5Bi 1 1  • 

1026 

PRINT" 

? 

70 

PRINT"  MS 

1027 

PRINT" 

9 

S-  "  ; 

1028 

PRINT" 

DIE  DREI 

GEISTER  :  "; 

72 

PRINT 

1029 

PRINT" 

II  » 

J 

74 

PRINT 

1030 

PRINT" 

■■  ■ 

76 

PRINT 

1031 

PRINT" 

II  . 

» 

78 

INPUT  ""DEINE  EINGABE  " ;  SE 

1032 

PRINT" 

5 

80 

I FSE< OORSE  > 1 27THENPR I NT " □ 

1033 

PRINT" 

? 

□" : G0T078 

1034 

PRINT" 

DIE 

NAHRUNG  :  " ; 

81 

POKE 17709, SE 

1035 

PRINT" 

■< . 

82 

PRINT 

1036 

PRINT" 

■■  • 

84 

PRINT 

1037 

PRINT" 

5 

90 
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SPIEL 


1038  PRINT" 

1039  PRINT" 

1040  PRINT"  UND  VIELE ,  VIELE  PI"; 

1041  PRINT"LLEN  :■•••••  affi'1; 

1042  PRINT"  " ; 

1043  PRINT"  11 ; 

1044  PRINT"  "; 

1045  PRINT" 

1046  PRINT"  -im**  DRUECKE  ZUM  STP" : 

1047  F'R I NT "  ISART  EINE  TASTE  ***®~ 

1048  PRINT" 

1099  RETURN 

1100  PR  INT”  Lj®  -lg****  PAC/B' 

1101  PR I  NT  "  12TB0Y  ****m-  " ; 

1102  PRINT" 

1103  PRINT" 

1104  PRINT" 

1105  PRINT" 

1106  PRINT "5,42  AM  B--,  “  " 

1107  PRINT"  AM  B-,  ~  ~  M  AM  I 

1108  PRINT "12  Bi  L-  12  Bi  US  B  iS  B  IMS  B 


iS  Bi 


1109  PRINT"  12  SS  US  1 

i  US 

1110  PR  INT  "12  ■  12  i 


s 


IS  §1  iS  Bi  L—  iS  H 


is 


1111  PRINT" 

i\!S 

1112  PR  INT  "12  1 

M  . 

1113  PRINT"  iS  i 

W 

1114  PRINT"iS  B 


m  12  m  is  ■  is  m  is  ■  ts  p 
!  ls  b  is  b  ia  m  is  m- 

m  iSBiSB  IS  a  ig  B“  IS 
M2BI2BIU2BI2B  iS  B  iS 


1115  PRINT"  12  1  !S  B  iS  B  [gffl 


IS 


1116  PRINT "12  BIMS  ■  \ä  1 


B  iS  f§  iS  B 


1117  PRINT1 
^  I“; 

1118  PRINT' 


'2 


I  '--12 


iS  B 


12  B 


1119 

1120 
1121 
1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1 134 

1135 

1 136 

1137 

1138 

1139 

1140 

1 141 

1 142 

1 143 

1144 

1145 

1150 

1151 
READY 


PRINT" 

PRINT" 

PRINT" 

PRINT” 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT” 

PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT 

PRINT 


42  B-'  - - - 

42  W  42 


42  W 


11  AM 

m 


12  DER  GEIST  WAR  WOHL®" ; 
12  SCHNELLER...  ®  : 

12  WENN  DU  DENN  MUT  NB"; 
L30CH  NICHT  VERLOREN  B 
12  HAST  DANN  DRUECKE  ■  "  ; 
F'RINT"!2FUER  EIN  WEITERES  B  " ; 
PRINT"  iS  SPIEL  DIE  'SPACE'-®"; 


PRINT 
PRINT" 
PR  INT" iS 
PRINT" 
FR INT" 
PRINT" 
PRINT" 
PRINT"® 
PR  INT  "LS 
RETURN 
DATA47 


IST  ASTE _ 

MS 


m.} 


-iSICH  WARTE  AUF  EINEI"; 
EINGABE. . . m— 


Listing  »DATA-PAC« 

O  DATA60 ,102,110,110,96,98,60,0,60, 34 , 34 
,62,98,98,98,0,120,1 00 , 1 00 , 1 24 

1  DATA98 , 98 , 126,0,62,70,64,64,64,66,62,0 
, 124,102,98,98,98,98,126,0,126 

2  DATA64, 96, 120,96,96,126,0, 126,96,96,56 
,32,32,32,0,126, 102,96,108,110 

3  DATA9S ,126,0,68,68,68,126,102,102,1 02 , 
0,8,8,24,24,24,24,24,0,4,4,4,6 

4  DATA 102,102,24,0,68,72,112,112,1 20 , 1 08 
, 102 , O , 64 , 64 , 96 , 96,96 , 102 , 126 , 0 

5  DATA102, 90, 66, 66, 98, 114,114,0, 100,84,7 
6,68,102,1 02 , 1 02 , O , 60 , 1 02 , 66 , 70 

6  DATA70 , 1 1 O , 60 ,0,124, 70 ,66,124,96, 96 , 96 
,0,60 , 102 ,66,90,94,1 10,60 , 0, 120 

7  DATA76 ,68,124,104,1 02 , 98 , O , 60 , 70 , 64 , 60 
,6,70,60,0,124,20,16,24,24,24,24 

8  DATAO ,66,66,66 , 70 , 70 , 70 , 62 , O , 70 , 70 , 78 , 
78 , 76 ,40,16, O , 102 ,102,98, 98 , 90 

9  DATA 126, 36, 0,66, 68, 40, 16,40,76,78,0,70 
, 70 ,70,36,24,24,24,0,126,98,4,8 

1 0  DATA 16,54,126,0, 60 ,48,48,48,48, 48 , 60 , 
0,12,18,48, 124,48,98,252,0,60, 12 

1 1  DATA 12 , 12,12, 12,60,0, 16,56,124,16,24, 
24 , 24 ,0.0, 32 ,111, 255 , 96 , 32 ,0,0,0 

1 2  DATAO , 0 ,0,0,0,0,0,56,56,24,24,0,24, 24 
,0,1 02 , 1 02 ,34,0, 0 , 0 , O , 0 , 36 , 36 , 1 26 

13  DAT A36 ,126,36,36,0,24,62,96, 60 ,6,124, 
24,0,99,102, 12,24,48,115,115,0,60 

1 4  QATA66 ,36,56,1 03 ,98,63,0,4,3,24,0 , O , O 
,0,0,4,8,16,16,24,12,4,0,16,8,4 

15  DATA4, 12,24, 16,0,0,66,52,255,52,66,0, 
O  o  i  a  i  a  1 9A  9a  n  n  n  n  o  a 

16  Dh T AO , 24 , 24 , 48 ,0,0,0, 126, 14,0,0,0,0,0 
,0,0,0,24,24,0,0,2,4,8,24,48,96 

1 7  DATAO , 60,70,74,82,114,114, 60 ,0,8,24,4 
0,8,24,24,126,0,60,98,2, 12,48,112 

18  DATA126, 0,60, 98, 2, 28, 6, 102,60,0,6, 10, 
18,34,127,6,6,0,126,64,124,2,6,102 

19  DATA60, 0,60, 70, 64, 124, 102, 102,60,0, 12 
6,98,4,8,24,24,24,0,60,66,66, 60 

20  DAT .498 , 1 02 , 60 , 0 , 60 , 66 ,66,62,6,1 02 , 60 , 
0,0,0,24,0,0,24,0,0,0,0,24,0,0,24 

21  DATA24, 48, 8, 16, 32, 96, 48, 24, 8,0, 0,0, 12 
6,0, 126,0,0,0,16,8,4,6,12,24,16 

22  DATAO ,60,98,2,12,24,0,24,0,0,0,0, 255 , 
255 ,0,0, 0,0, 0,0,0, 1,7,31 , 255 , O , 0 

23  DATAO ,0,1 23 , 224 , 248 , 255 ,31,127, 255 , 25 

5.255.255. 127.31 .248.254.255.255 

24  DAT A255 , 255 , 254 , 248 ,60,126,126, 255 , 25 

5 . 255 . 255 . 255 . 255 . 255 . 255 . 255 . 255 

25  DATA 126, 126,60,224, 192,128,0,0,0,0,0, 
0,0,0,0,0,128,192, 224 , 240 , 252 , 254 

26  DAT A254 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 2 

55.127.127.63.15.255.255.255.255 

27  DATA254 , 254 , 252 , 240 ,7, 3, 1,0, 0,0, 0,0,0 
, O , O , O , O , 1 ,3, 7, 0,0, 0,7, 7, 0,0, 0,0 

28  DATAO , O , 224 , 224 ,0,0,0, 255 , 255 , 3 , 3 , 3 , 3 
,3,3,0,60, 126, 126,126, 126,60,0,0 

29  DATAO, 0,0, 0,255, 255, 0,54, 127, 127, 127, 
62,28,8,0,96,96,96,96,96,96,96,96 

30  DAT Al 5, 63, 127,127,255,255,255,255,195 
'  ,231 , 126,60,60,126,231,195,0,60 

3 1  DATA 126,102,102,126, 60 ,0,24,24,1 02 , 1 0 
2 , 24 , 24 , 60 ,0,6,6, 6, 6, 6. 6, 6,6, 8, 28 

32  DATA62, 127,62,28,8,0,24,24,24,255,255 
,24,24,24,192,192,48,48,192,192 

33  DATA4S ,48,24,24,24,24,24,24,24,24,0, 0 
,3,62,118,54,54,0,255,127,63,31 

34  DATA! 5 ,7,3, 1,0,0,0,0,0,0,0,0,240,240, 
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240 , 240 , 240 , 240 , 240,240,0, 0,0,0 

35  DATA255 , 255 , 255 , 255 , 255 ,0,0, 0,0, 0,0,0 
,0,0,0,0,0,0,0,255,192,192,192, 192 

36  DATA 192, 192,192,192,204,204,51 ,51,204 
,204,51,51 ,3, 3, 3, 3, 3, 3, 3, 3, 0,0,0 

37  DATAO , 204 , 204 ,51,51, 255 , 254 , 252 , 248 , 2 
40,224-,  192,128,3,3,3,3,3,3,3,3,24 

38  DAT A24 , 24 ,31 ,31 ,24,24,24,0.0,0,0,15, 1 
5,15,15,24,24,24,31,31,0,0,0,0,0 

39  DATAO , 248 , 248 ,24,24,24,0,0,0,0,0,0,25 
5,255,0,0,0,31,31,24,24,24,24,24 

40  DATA24 , 255 , 255 ,0,0, 0,0, 0,0, 255 , 255 , 24 
,24,24,24,24,24, 248 , 248 ,24,24,24 

41  DATA 192, 192, 192,192,192,192,192,192,2 
24 , 224 , 224 , 224 , 224 , 224 , 224 , 224 , 7 

42  DAT A7 ,7, 7, 7, 7, 7, 7, 255 , 255 ,0,0, 0,0, 0,0 
, 255 , 255 , 255 ,0,0, 0,0, 0,0, 0,0, 0,0 

43  DATA255 , 255 , 255 ,3, 3, 3, 3, 3, 3, 255 , 255 , O 
,0,0,0,240,240,240,240,15,15, 15 

44  DATA 15,0,0,0,0,24,24,24, 248 , 248 ,0,0, O 
, 240 , 240 , 240 , 240 , O , O , O , O , 240 , 240 

45  DAT A240 , 240 , 15, 15, 15,15, 195,153,145, 1 
45, 159,157,195,255,195,221,221 , 193 

46  DAT A 1 57 , 157, 157,255, 135, 155, 155, 131 , 1 
57,157,129,255,193, 185,191,191,191 

47  DATA189, 193,255, 131 , 153,157,157,157,1 
57,129,255, 129,191, 159,135, 159, 159 

48  DATA129, 255, 129, 159, 159, 199,223,223,2 
23,255, 129,153,159, 147,145, 157,129 

49  DATA255, 187,187,187,129,153, 153, 153,2 

55.247.247.231.231.231.231.231.255 

50  DATA251 ,251 ,251 ,249,153,153,231,255,1 

87, 183, 143,143,135, 147 , 153 , 255 , 1 913*3*  onjn 

51  DATA191 , 159,159, 159,153,129,255, 153,1 
65,189,189,157,141, 141,255, 155,171 

52  DATA179, 187, 153, 153,153,255,195, 153,1 
89, 185,185, 145, 195,255, 131 , 185, 189 

53  DATA131 , 159,159,159,255,195,153,189,1 
65,161,145, 195,255, 135,179,187,131 

54  DATA 151 , 153, 157,255,195,185,191 , 195,2 
49,185,195,255,131,235,239,231 ,231 

55  DATA231 ,231 ,255, 189, 189, 189, 185, 185,1 
85,193,255, 185, 185, 177,177,179,215 

56  DATA239,255, 153, 153, 157,157,165,129,2 
19,255,189,187,215,239,215,179,177 

57  DATA255, 185, 185, 185,219,231 ,231,231,2 

55.129.157.251 .247.239.201 . 129.255 

58  DAT Al 95, 207, 207, 207, 207, 207, 195,255,2 
43,237,207,131,207,157,3,255, 195 

59  DATA243 , 243 , 243 , 243 , 243 ,195, 255 , 239 , 1 
99,131,239,231,231,231 ,255,255.223 

60  DATA 144,0,159, 223 , 255 , 255 , 255 , 255 , 255 
,255,255,255,255,255, 199, 199,231 

61  DATA231 ,255,231 ,231 ,255,153,153,221,2 
55 , 255 , 255 , 255 , 255 ,219,219,129,219 

62  DATA 129, 219, 21 9, 255, 231 ,193,159,193,2 
49,131,231,255,156,153,243,231 ,207 

63  DATA140, 140,255, 195,189,219,199,152, 1 

57.192.255.251.247.231.255.255.255 

64  DATA255 , 255 ,251, 247 , 239 , 239 ,231, 243 , 2 
5 1 , 255 , 239 , 247 ,251,251, 243 , 23 1 , 239 

65  DAT A255 , 255 ,189, 203 , 0 , 203 ,189, 255 , 255 
,255,239,239,129,231,231,255,255 

66  DATA255 , 255 , 255 , 255 , 255 ,231,231, 207 , 2 

55.255.255.129.241.255.255.255.255 

67  DATA255 , 255 , 255 , 255 ,231,231, 255 , 255 , 2 

53,251 ,247,231 ,207,159,255,195,185  • 

68  DATA181 , 173,141 , 141 , 195,255,247,231 ,2 
15,247,231,231,129,255,195,157,253 

69  DATA243, 207, 143, 129,255, 195, 157,253,2 
27,249,153,195,255,249,245,237,221 


(Fortsetzung) 

70  DATA 128, 249, 249, 255, 129, 191 , 131,253,2 

49.153.195.255.195.185.191.131.153 

71  DATA153 , 195,255,129,157,251,247,231,2 

31.231 .255.195.189.189.195.157.153 

72  DAT Al 95, 255, 195,189,189,193,249,153,1 

95.255.255.255.231.255.255.231 .255 

73  DATA255 , 255 , 255 ,231, 255 , 255 ,231,231,2 
07,247,239,223,159,207,231 ,247,255 

74  DAT A255 , 255 ,129, 255 ,129, 255 , 255 , 255 , 2 
39,247,251,249,243,231 ,239,255,195 

75  DATA 1 57 , 253 , 243 ,231, 255 ,231, 255 , 255 , 2 
55 , 255 ,0,0, 255 , 255 , 255 , 255 , 255 , 255 

76  DATA255 , 254 , 248 , 224 , O , 255 , 255 , 255 , 255 
, 127,31,7,0,224,128,0,0,0,0,128 

77  DAT A224 ,7,1 ,0,0, 0,0, 1 ,7,195,129,129,0 
,0,0,0,0,0,0,0,0,0,129,129,195,31 

78  DATA63 ,127, 255 , 255 , 255 , 255 , 255 , 255 , 25 
5,255,255,255,127,63,31,15,3,1,1 

79  DATAO, 0,0, 0,0, 0,0,0, 128,128, 192,240,0 
,0,0,0, 1 , 1 ,3,15,248,252,254,255 

80  DATA255 , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 2 

55 . 254 . 252 . 248 . 255 . 255 . 255 . 248 . 248 

8 1  DAT A255 , 255 , 255 , 255 , 255 , 255 ,31,31, 255 
, 255 , 255 ,0,0, 252 , 252 , 252 , 252 , 252 

82  DATA252 ,255,195,129,129,129,129,195,2 
55 , 255 , 255 , 255 , 255 , 255 ,0,0, 255 , 20 1 

83  DATA128, 128, 128, 193,227,247,255, 159,1 
59,159,159,159,159,159, 159,240,192 

64  DATA128, 128,0,0,0,0,60,24, 129, 195,195 
, 129,24,60,255, 195,129,153,153,129 
85  DATA 195, 255, 231, 231 , 153,153,231,231 , 1 

95 . 255 . 249 . 249 . 249 . 249 . 249 . 249 . 249 

81;-'  DATA249 , 247 , 227 ,193,128,193, 227 , 247 , 2 
55,231,231 ,231 ,0,0,231 ,231 ,231 ,63 

87  DATA63 , 207 , 207 , 63 , 63 , 207 , 207 ,231,231, 

231 .231.231.231.231.231.255.255 

88  DATA252, 193, 137,201 ,201 ,255,0,128,192 
, 224 , 240 , 248 , 252 , 254 , 255 , 255 , 255 

89  DAT A255, 255, 255, 255, 255, 15, 15,15,15,1 
5,15,15,15,255,255,255,255,0,0,0 

90  DATAO , O , 255 , 255 , 255 , 255 , 255 , 255 , 255 , 2 
55 , 255 , 255 , 255 , 255 , 255 , 255 , O , 63 

91  DAT  A63 , 63 , 63 , 63 , 63 , 63 , 63 ,51,51 ,204,20 
4,51,51,204,204,252,252,252,252 

92  DATA252 , 252 , 252 , 252 , 255 , 255 , 255 , 255 , 5 
1,51,204,204,0,1 ,3,7,15,31,63,127 

93  DATA252 , 252 , 252 , 252 , 252 , 252 , 252 , 252 , 2 

31.231 .231.224.224.231.231.231.255 

94  DATA255 , 255 , 255 , 240 , 240 , 240 , 240 ,231,2 

31.231.224.224.255.255.255.255.255 

95  DATA255, 7,7 ,231 ,231 ,231,255,255,255,2 
55 , 255 , 255 ,0,0, 255 , 255 , 255 , 224 , 224 

96  DATA231 ,231 ,231,231,231 ,231,0,0,255,2 
55,255,255,255,255,0,0,231 ,231,231 

97  DATA231 ,231 ,231 ,7,7,231 ,231 ,231 ,63,63 
, 63 , 63 , 63 , 63 , 63 , 63 ,31,31,31,31 ,31 

98  DAT  A3 1,31 ,31 ,248,248,248,248,248,248, 
248 , 248 ,0,0, 255 , 255 , 255 , 255 , 255 

99  DATA255 ,0,0,0, 255 , 255 , 255 , 255 , 255 , 255 
, 255 , 255 , 255 , 255 ,0,0,0, 252 , 252 , 252 

1 00  DATA252 , 252 , 252 ,0,0, 255 , 255 , 255 , 255 , 

15.15.15.15.240.240.240.240.255.255 

101  DAT  A255 , 255 , 23 1 , 23 1 ,231,7,7,255,255, 
255,15,15,15,15,255,255,255,255,15 

102  DATA15, 15, 15,240,240,240,240,32,32,3 
2,32,32,32,32,32,32,32,65,85,170 

103  DATA 170, 170, 160, 144, 129,131,206,207, 
130,143, 153, 160,170,170,170,73,66 

104  DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 85 
,160,160,160,160,160,160,160,160 
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105  DATA  160, 160, 160, 160,160,160, 160,160, 

160,160, 160,160,160, 160,160,160, 160 

106  DATA160, 160, 160, 160, 160,160,160, 160, 

160.160.160.160.160.73.160.71.32 

1 07  DAT A32 , 32 , 32 ,32,32,32,32,32,32,32,32 
,32,32,32,32,76,160, 160,71 ,32,32 

1 OB  DATA32 ,32,32,32,32,32, 32 , 32 , 32 ,32,32 
,32,32,32,76,160,160,32,81,32, 32 
10?  DATAB1 ,32,32,32,32,32,32,32,81 ,32,32 
,32,31,32,160,160,32,81,32,32,32 

1 1 0  DAT A8 1 , 32 ,32,32,31,32,32,32,81,32,32 
,81 ,32, 160, 160,32,32,32,32,32,32 

111  DATA32, 32, 32,32, 32, 32, 32, 32, 32, 32, 32 
,32,160,160,32,32,32,32,32,32,32 

112  DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32, 32 
, 160,160,32,32,32,67,160, 160,68,32 

1 13  DATA32,32,67, 160, 160, 160,68,32,32,32 
,74,75,32,32,32,67, 160, 160, 160,68 

1 14  DATA32, 32 , 32 ,67,160,160,68, 32 ,32,32, 

160.160.32.32.32.32.32.32.32.32.32 

1 15  DAT A32 , 32 , 32 ,32,32,32, 32 , 32 , 32 , 32 , 32 

32 , 32  32  32  32 . 32  32  32 , 32 , 32 , 32 

1 16  DAT A32 , 32 ,32,32,32, 32 ,32,1 60 ,160,32, 

81.32.32.81.32.32.32.81.32.32.32 

1 1 7  DATA8 1,32,32,32,81,32,32,32,32,81, 32 
,32,32,81,32,32,32,32,32,32,32,81 

118  DAT A32 , 32 ,81 ,32,160,160,72,32,32,32, 

-xr?  ’T'?  T9  T7  -T-?  T,-?  -zr?  ’T'?  ■\r?  T? 

1 19  DATA32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 
,32,32, 32 , 32 , 32 ,32,32,32,32,32,32 

120  DATA77, 160,74,160,160,160,160,160,16 
0,73,32,32,32,69, 32 ,32,32,67,1 60 

121  DATA160, 160, 160,160, 160, 160,160,68,3 

2,32,32,69,32,32,32,85, 160, 160, 160 

122  DATA 160, 160, 160,75,32,32,32,32,32,76 
, 160,75,32,32,32,160,32,81,32,32 

123  DATA32 ,32,32,32, 32 , 32 ,32,32,32,32,81 
,32, 160,32,32,32,74, 160,71 ,32,32 

124  DAT A32 , 32 , 32 ,32,32,32, 32 ,32,77,160,3 

2.32.32.32.70.32.32.32.32.81.32.32 

125  DAT A32 ,32,32,32,31 ,32,32,32,32,70,32 
,32,32,76,160,72,32,32,32,32,32,160 

126  DAT A 1 60 , 160, 160, 160,160,75,32,32,32, 

-r.-?  T?  T?  ‘T’7  T?  ?? 

1 27  DAT A32 ,32,32,32,32,32,32, 32 ,32,32,32 
,32,74,160,160, 160,160, 160, 160,32 

1 28  DATA32 , 32 , 32 , 32 , 32 ,32,32,32,32,32,32 
,32,32,32,85,160,68,32,32,32,32,67 

1 29  DATA 1 60 , 73 ,32,32, 32 , 32 , 32 ,32,32,32,3 

2.32.32.32.32.32.32.32.32.32.32. 32 

130  DATA32, 32, 32, 32, 32, 32, 32, 81 ,32,32, 16 
0,71,32,32,32,32,32,32,76,160,32 

131  DAT  A32 ,81 ,32,32,32,81,32,32,32,32,32 
, 32 , 32 ,32,32,32,32,32,32,32,32,32 

132  DATA32, 77, 69, 32, 32, 32, 77, 160,32,32,3 

2.32.32.32.32.32. 160.32.32.32.32 

1 33  DATA69 , 72 , 32 ,32,32,32,32,32,32,32,32 
, 160, 160, 160,160,160,68,32,32,32 

1 34  DAT A85 , 75 , 32 ,32,32,67,75,32, 32 ,32,32 
,32,32,32,32,74,66,32,32,32,74,73 

135  DATA32,32,32,67, 160, 160, 160,160,160, 
160,71,32,32,32,32,32,32,32,160,71 

1 36  DATA32 ,32,32,32,32,32,32,32,85,73,32 
,32,32,32,32,32,32,32,76,160,32, 32 

137  DATA32, 32, 32, 32, 32, 76, 160, 160,32,81, 

32.32.32.32.81.32.160.32.81 .32.32 

1 38  D AT A32 , 32 , 32 , 32 ,32,160,160,32,32,32, 

32.32.32.32.81.32.160.32.81.32.32 

139  DATA32, 32, 81 ,32, 160, 160,32,32,32,32, 

32.32.32.32.160.32.32.32.32.32.32 


140  DATA32, 32, 77, 160, 160,72,32,32,32,32, 

32.32.32.32.160.32.32.32.32.32.32 

141  DATA32, 32, 160, 160,32,32,32,67,68,32, 

32,32,70,32,32,32,67, 160,160, 160 

142  DATA 160, 160,160, 160, 160, 160,160,160, 
160,68,32,32,32,70,32,32,32,67,68 

143  DATA32 , 32 , 32 , 160,160,32,32,32,32,32, 

32.32.32.32.32.32.32.32.32.32.32 

144  DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 32  32 
,32,32, 32 ,32,32,32,32, 32 , 32 ,  -^2 . 32 

145  DATA 160, 160,32,81,32,32,32,32,32,32, 
32,32,81 , 32,32 , J? ,81 ,32,32,81 ,32 

146  DATA32 ,81  32,32,81,32,32,32,81,32,32 
.32,32,32,32,32,32,81,32,160,160 

1 47  DATA72 ,32,32, 32 , 32 , 32 , 32 , 32 , 32 , 32 , 32 


,  ,  — - 


l  T1?  7?  7?  -T'?  T/? 


1 48  DATA32 , 32 , 32 , 32 , 32 , 32 ,32,32,32, 32 , 32 
,32,32,32,32,77,160,74,160,136,137 

149  DATA 135, 136,173,147,131,143, 146,133, 

186, 176,176, 176,176,176,160,160,160 

1 50  DATA 147 ,131,143,146,133,186,176,176, 
176,176, 176, 160,160, 160,179,160,149 

151  DATA 144, 75, 88, 68, 152, 188, 192,188,168 
, i 64 , 16,212, 72 , 220 ,0,1 00 , 88 , 148,30 

152  DATA27, 28, 209, 0,255, 200, 0,28, 113, 240 
, 0 , 240 ,0,0, 0,6, 6, 6, 6, 6, 2, 7 ,8,3, 10 

153  DATA4, 5, 5, 10,8,0,249,251 ,251,251 ,252 
,253,254,255,39,74,160,136,137,135 

154  DATA 136, 173, 147, 131 , 143, 146,133,186, 
176, 178,176, 179,176, 160, 160,160,147 

155  DATA131, 143, 146, 133,186,176,179,180, 
182,176, 160, 160, 160, 177, 160, 149,144 

156  DAT A75 ,81,0,1 ,2,40,41,42,80,81,82,0, 
0,Q,0  0,0,240,240,240,240,15, 15,15 

157  DATA15 , 195 , 153 , 145 , 145,159,153, 195,2 
55,231,195,153,129,153,153,153,255 

1 56  DATA131 , 153, 153,131 , 153, 153, 131,255, 
195, 153,  1-59,  159,159,  153,  195,255, 135 

159  DATA 147, 153,153, 153,147, 135,255,129, 
159,159,135, 159, 159, 129,255,129, 159 

160  DATA 159 , 135,159,159, 159,255,195,153, 
159,145,153, 153, 195,255, 153, 153, 153 

161  DATA129, 153, 153, 153,255, 195,231 ,231 , 
231,231,231,195, 255 , 225 , 243 , 243 , 243 

162  DATA243, 147, 199,255, 153, 147,135,143, 
135,147, 153,0,0,0,0,255,0,3,255,192 

163  DATA7, 255, 224, 15,255,240,31 ,255,248, 
3 1 , 255 , 248 , 63 , 255 , 252 , 63 , 255 , 252 

164  DATA63, 255, 252, 63, 231 ,60,63,231 ,60,6 
3,231,252,63, 195,252,31 , 195,248,31 

165  DATA129, 248, 15, 129,240,7,0,224,3,0, 1 
92 ,0,0, 0,0, 0,0, 255 , O , O , 0 , O , 255 , 0 

166  DATA3 , 255 , 192,7,255,224, 15,255,240,3 
1 , 255 , 248 ,31 , 255 , 248 , 63 , 255 , 252 , 63 

1 67  DATA255 , 252 , 63 , 255 ,252,63, 255 ,60,63, 
255 , 60 , 63 , 239 , 252 , 63 , 239 , 252 ,31, 239 

168  DATA248 ,31 ,231 ,248, 15,231 ,240,7,231 , 
224,3,231,192,0,231,0,0,0,0,0,0,0 

169  DATAO, 0,255, 0,3, 255, 192,7,255,224, 15 
, 255 , 240 ,31, 243 , 248 ,31, 243 , 248 , 63 

1 70  DATA255 , 224 , 63 , 255 ,0,63, 248 ,0,63, 224 
,0,63, 248 ,0,63, 255 ,0,63, 255 , 224 , 3 1 

171  DATA255, 248,31 ,255,248, 15,255,240,7, 
255 , 224 , 3 , 255 ,192,0, 255 , O , O , O , O , O 

172  DATAO, 0,0, 0,255, 0,3 ,255, 192,7,255,22 
4,15,255,240,31,243,248,31 ,243,248 

1 73  DATA63 , 255 , 252 , 63 , 255 , 252 , 63 , 248 ,0,6 
3 , 224 ,0,63, 255 , 252 , 63 , 255 , 252 , 63 

174  DATA255, 252,31 ,255,248,31,255,248,15 
,255,240,7,255,224,3,255, 192,0,255 

175  DATAO, 0,0, 0,255, 0,0, 0,0, 0,0, 3,0, 192, 
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7,0,224,15,129,240,31 , 129,248,31 

176  DATA195, 248, 63, 195,252,63,231 ,252,60 
,231,252,60,231 ,252,63,255,252,63 

177  DAT A255 , 252 , 63 , 255 , 252 ,31 ,255,248,31 
,255,248,15,255,240,7,255,224,3,255 

178  DATA192, 0,255, 0,0, 0,0, 255, 0,0, 0,0, 19 
9,0,3, 199,192,7,199,224,15,199,240 

179  DATA31 , 199,248,31 , 199,248,63,231 ,252 
,63,231 ,252,60,231,252,60,231,252 

1 80  DATA63 , 255 , 252 , 63 , 255 , 252 , 63 , 255 , 252 
,31 ,255,248,31 , 255 , 248 ,15, 255 , 240 

181  DATA7, 255, 224, 3, 255, 192, 0,255, 0,0,0, 
0,0, 0,0, 0,0, 255 ,0,3, 255 ,192,7, 255 

182  DATA224, 15,255,240,31 ,207,248,31 ,207 
, 248 , 7 , 255 , 252 , 0 , 255 , 252 ,0,31, 252 

1 83  DATAO , 7 , 252 ,0,31, 252 , O , 255 , 252 , 7 , 255 
,252,31 ,255,248,31,255,248, 15,255 

184  DATA240, 7, 255, 224, 3, 255, 192,0,255,0, 
0,0,0,0,0,0,0,0,255,0,3,255,192,7 

185  DATA255, 224, 15, 255, 240, 31, 207, 248, 31 
, 207 , 248 , 63 , 255 , 252 , 63 , 255 , 252 , O 

1 86  DAT A 1 27 , 252 ,0,7, 252 , 63 , 255 , 252 ,63,25 
5,252,63,255,252,31 ,255,248,31,255 

187  DAT A24B, 15, 255, 240, 7, 255, 224, 3, 255,1 
92,0, 255 ,0,0,0 ,0,255 ,0,0,0,0,126 

1 88  DATAO , 1 , 255 ,128,7, 255 , 224 ,15, 255 , 240 
,31 ,255,248,28,24,56,59,231 ,220,58 

1 89  DAT A36 ,92,58,165,92,58, 36 ,92,59,231, 
220 , 60 , 24 , 60 , 63 , 255 , 252 , 63 , 255 , 252 

190  DAT A63 , 255 , 252 , 63 , 255 , 252 , 57 , 23 1 , 156 
,49,195,140,33,129,132,0,0,0,255 

191  DATAO, 0,0, 0,0, 0,0, 0,32, 0,2, 128,0,42, 
!,0, 168,40,0, 1 36 , 1 68 ,2,1 36 , 40 


211  DATA133, 21 ,6.20,234,234,232, 169,0,56 
, 42 , 202 , 208 , 252 , 234 ,133,182, 234 , 234 

212  DATA 160,0,177,20,24,105,8,145,20,176 
,1,96,173, 16,208,5, 182,141, 16,208 

213  DATA96,234,234, 134,20, 169,208,133,21 
,6,20, 234 , 232 ,169, 0 ,56,42, 202 , 208 

2 1 4  DATA252 , 234 ,133,182,56,169, 255 , 229 , 1 
82 , 133 , 182 , 234 ,160,0,177,20,56, 233 

215  DATA8, 145,20,144,1 ,96,234,173,16,208 
,37,182,141, 16,208,96,234,234, 162 

216  DATAO, 32, 161 ,64,32, 102,64,162,0,32,4 
4,64, 240 , 3 , 32 , 208 ,64,169, 245 ,141 

217  DATA248 , 7 , 162,0,32, 156,67,96,234,234 
, 162,0,32,208,64,32, 102,64,162,0 

218  DATA32, 44, 64, 240, 5, 162,0,32, 161 ,64,1 
69,249,141 ,248,7,169,0,32,214,67 

219  DATA96, 234, 162,46, 189,232,59,157,0,2 
08,202,16,247,162,7, 189,24,60,157 

220  DAT A24S , 7 , 202 ,16, 247 , 234 , 234 , 96 , 234 , 
166,162, 189,0, 160,41 ,3,96, 162,24 

221  DATA 169 , 0, 157,0,212,202,16,250, 169, 1 
5, 141,24,212,96,234,234,234,169,0 

222  DATA133, 20, 133,87, 169,4,133,21,169,5 
6,133,88,162,24, 160,39,177,87,145 

223  DATA20, 136, 16,249,24,169,40,101,87, 1 
33,87,169,0,101,88,133,88,24, 169 

224  DATA40 ,101,20,133,20,169,0,101,21,13 
3,21 ,202,16,218,234,234,234,234,169 

225  DATAO, 133,20,169,216,133,21 , 162,24, 1 
69,14,160,39,145,20,136,16,251,24 

226  DATA 1 65 ,20,1 05 , 40 ,133,20,165,21,1 05 , 
0,133,21 ,202,16,231 ,76,60,67,162 

2  DATA31 , 189,192,7,24,105,5,157,192,7, 
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192  DATA10 , 8, 2 ,2, 128,2,2, 128,2,0,128,5,0  ZUl , 181,208,1,96,169,176, 157,192 


, 128,31 ,64,80,31,65,116,23,65,244 

193  DATA21 ,65,212,21 ,65,84,5,1 ,84,0,0,80 
,0,0, 0,0, 2, 128,0, 10,160,170,2,162 

194  DATA160,0, 10,40,0,8,42,0,40,42,0,255 
, 10,3,255, 192,15,255,240, 15.255,240 

1 95  DAT A63 , 255 , 252 , 63 , 255 , 252 , 63 , 253 , 252 
,63,245,124,61,117,124,61,125,252 

196  DATA15, 127,240, 15,255,240,3,251 , 192, 
0,235,0,0,40,0,0,0,0,0, 16,0,4,16 

197  DATAO, 4, 16,0,4,16,0,4, 16,0,4,252,0,6 
3,252,60,63,48,60, 12,42,170,168,37 

198  DATA150, 88, 37, 150,88,37, 150,88,37, 15 
0,88,37,150,88,37,150,88,37,150,88 

199  DATA37, 150,88,42, 170, 168,63,255,252, 
255 , 255 , 255 , 255 ,0,0, 0,0, 0,0, 0,0,0 

200  DATAO ,0,0,0,12,16,0,63,84,0,63,84,0, 
63,84,0,45,84,0,41,95,0,170,95,0 

201  DATA 170, 255, 2, 170,191,2,170,172,10,1 
70, 160,10,170,0,42,160,0,42,0,0,168 

202  DATAO, 0, 160,0,0, 128,0,0,255,216,234, 
234 , 234 , 234 ,165, 203 ,201,3, 208 ,3,76 

203  DATA63 , 64 , 234 , 234 ,201,6, 208 ,3,76,11? 
,64,234,234,201 , 12,208,3,76,35,65 

204  DAT A234 , 234 ,201,23, 208 ,3,76,6,65, 234 
,96,234,76,152,66,232,169,0,56,42 

205  DAT A202 , 208 , 252 ,45,31, 208 , 234 , 234 , 96 
,234,234, 173, 1,208,24,105,8,141, 1 

206  DATA208, 32, 102,64, 162,0,32,44,64,240 
,9,173, 1,208,56,233,8,141 , 1,208,169 

207  DAT A243 ,141, 248 , 7 , 234 , 234 , 234 , 234 , 23 
4,96,234,234,162,9,160,0,234,234 

208  DATA 1 36 , 208 ,251, 202 , 208 , 246 , 234 ,96,2 
34,234,173, 1,208,56,233,8, 141,1 ,208 

209  DATA32, 102,64, 162,0,32,44,64,240,9, 1 
73, 1,208,24,105,8,141 , 1,208,169,247 

210  DATA 141, 248 , 7 , 234 , 234 , 234 , 234 , 234 , 23 
4 , 234 , 96 , 234 , 234 , 234 , 134 , 20 ,169, 205 
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!2S  DAT A7, 202, 254, 192,7,169, 186,221 , 192, 
7,240,240,96,234,234, 134,2,138,10 

229  DATA170,232, 173, 1 ,208,221 ,0,208,240, 
1,96, 202 ,173,0, 208 ,221,0, 208 , 240 

230  DATA1, 96, 169,0, 166,2,232,56,42,202,2 
08 , 252 ,24,105,1,133,2,173,16, 208 

231  DAT  A37 , 2 , 20 1,0, 240 , 5 , 197,2,240,1,96, 
169,0,96,234,234,169,100,141,0,212 

232  DAT A 1 69 , 20 ,141 , 1,212, 169,129, 141,4,2 
12,169,15, 141,5,212,167,242, 141,6 

233  DATA212, 32, 102,64,32, 102,64,169,128, 
141,4,212,96,162,7,138,72,32,251 

234  DATA65 , 208 , 42 , 238 , 248 ,7,32,54,66, 104 
,10,170,232,169,0,157,0,208,32,40 

235  DAT A68, 32, 21 8, 65, 169,2,32, 102,64,56, 
233 , 1 , 208 , 248 , 206 , 248 , 7 , 234 , 234 , 234 

236  DATA169, 0,76, 151 ,66,104,170,202,201 , 
4,208,200,96,234,234,234,173, 16,208 

237  DATA41 , 1,133,21 , 173,0,208,56,233,16, 
133,20,165,21,233,0, 133,21,234,70 

238  DATA2I , 102,20,70,21 , 102,20,70,21,102 
,20,24,169,4,101,21,133,21,173,1 

239  DATA208 , 56 , 233 ,44,133,92,70,92,70,92 
,70,92,162,40,24, 165,92,101,20, 133 

240  DAT A20 , 169,0,101 ,21,133,21,202,208,2 
40, 165,20,56,233,41 , 133,20,165,21 

241  DATA233, 0,133,21 , 160,0, 169,81 ,209,20 
, 240 , 45 , 200 , 209 , 20 , 240 , 40 , 200 , 209 

242  DAT A20 , 240 , 35 , 160,40,209,20,240,29,2 
00,209,20,240,24,200,209,20,240,19 

243  DATA 160,80, 209 , 20 , 240 ,13, 200 , 209 , 20 , 
240 , B , 200 , 209 , 20 , 240 ,3,76,47,64,169 

244  DAT A32 ,145,20, 23e , 248 ,7,32,54,66, 206 
,32,60,208,3,32, 128,67,76,120,66 

245  DATA234, 169,4, 133,21 , 169,0, 133,20,13 
3,87,169,216,133,88,234,162,24, 160 

246  DATA39, 177,20,201 ,81 ,208,4,169,0,145 
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,07,136. 16,243,24,165,20,105,40, 133 

247  DAT A20 , 1 65 ,21 , 105,0,133,21,24,165,87 
, 105,40,133,87,165,88,105,0,133,88 

248  DATA202, 16,212, 16? ,37, 76 , 5? , 68 ,234 , 2 
34,234,234,162,39,189,192,7,157,33 

249  DATA60 ,202 , 16 , 247 ,32,122,65,162,39,1 

89.33.60.157.192.7.202.16.247.96 

250  DATA234, 134,2,6,2, 164,2,200,185,0,20 
8,201 ,156,240, 1,96, 136,185,0,208 

251  DAT A201 ,80,240, 1 ,96,232,169,0,56,42, 
202,208,252,45, 16,208,208, 1 ,96,133 

252  DATA2, 169,255,56,229,2,45,16,209,141 
, 16,208,169, 16,153,0,208,96,234,234 

253  DATA134, 2, 6, 2, 164, 2, 200, 185,0,208,20 
1 , 156,240,1,96,136, 185,0,208,201 

254  DATA8, 240, 1,96, 232, 169, 0,56, 42, 202, 2 
08,252, 133,2,45, 16,208,240,1,96,165 

255  DATA2, 234, 234, 234, 13,16,208, 141 , 16,2 
08, 169,72,153,0,208,96,234,206,73 

256  DATA60, 240, 1 ,96,169,3, 141 ,40,208,169 
,10,141,41 ,208,169,4, 141 ,42,208,96 

257  DATA234, 234, 169,5, 141 ,40,208, 141 ,41 , 

208.141 .42.208.169.64.141.73.60.96 

258  DAT A234 , 141 ,32,60,162,7,189,240,59,1 
57,8, 208 , 202 ,16, 247 , 234 , 96 , 234 , 1 69 

259  DATA15 ,141 ,5,212, 169,251 , 141,6,212,1 
69,17,141,4,212,169,0, 133, 162,162 

260  DAT A2Q , 1 38 ,72,1 65 , 1 62 , 141,1,212,32,1 
02,64,32, 102,64,32, 102,64,104,170 

261  DAT  A202 , 208 , 235 , 169,10, 141 , 1,212,169 
, 16,141,4,212,234,234,96,234,234 

262  DATA 162 ,3, 134,97,32,251,65,240,8,166 
, 97 , 202 , 208 , 244 , 169 , 255 , 96 ,32,76 

263  DATA68, 173, 40, 208, 201, 245, 240, 3, 169, 
0,96, 166,97,6,97,164,97,185,232,59 

264  DATA153, 0,208, 185,233,59, 153, 1 ,208,2 
32 ,56,1 69 ,0,42, 202 , 20B , 252 ,133, 97 

265  DATA169, 255, 56, 229, 97, 45, 16,208, 141 , 
1 6 , 208 , 234 , 234 ,160,40,32,218,65,32 

266  DAT A2 19,68,136, 208 , 247 ,76,148,68, 234 
,234,152,72,169,15,141,5,212,16? 

267  DATA255, 141 ,6,212, 169,48, 141 , 1 ,212,1 
69,17,141,4,212,32,102,64,169,0,141 

263  DATA4,212, 104,168,96,234,234,234,234 
, 234 , 32 , 1 22 , 65 , 32 , 68 , 65 , 32 , 1 03 , 65 

269  DATA 1 65 , 203 ,201,64, 240 , 250 , 234 , 234 , 2 
34 , 234 , 32 , 0 ,64,32, 93 , 66 , 32 , 132 , 68 

2 70  DATA240 ,25,32,160,70,32,132,68, 240 , 1 
7,32, 17,68,162,20,160,0,234,136,208 

271  DAT A252, 202, 16,247,76,22,69,234,234, 
206,227,7,169, 176,205,227,7,240,18 

272  DATA234, 169,32, 133,2,32,102,64,198,2 
, 208 , 249 ,32,128,67,76,6,69, 234 , 234 

273  DATA 162,0, 189,219,7,221,205,7,240,3, 
16,23,96, 234 , 232 , 224 , 5 , 208 , 239 , 234 

274  DAT A234 , 234 , 234 , 234 , 234 , 234 , 234 , 234 , 
234,234,234,96,234, 162,0,189,219 

275  DATA7, 157,205,7, 157,205,59,232,224,5 
,208,242,96,165,252,197,254,144,3 

276  DATA240, 3,96, 24, 96, 165, 251, 197,253, 1 
44,248,56,96,234, 134,2,138,10,168 

277  DATA1B5, 0,208, 133,20, 169,0, 133,21,56 
, 42 , 202 ,16, 252 , 234 ,45,16, 208 , 240 

278  DATA4, 169, 1 , 133,21 ,234,56,165,20,233 
,24,133,20,165,21,233,0,133,21,70 

279  D AT A2 1,102,20,70,21,102,20,70,21,102 

,20,234,185,1,208,56,233,52,74,74 

280  DATA74 ,170, 224 , 0 , 240 ,16,24,165,20,10 
5,40,133,20, 165,21,105,0,133,21,202 

281  DAT  A20B , 240 , 24 , 169,4,101,21 , 133,21,2 


34, 162,8,188,74,60,177,20,201,32 

282  DATA240,22,201 ,81 ,240, 18,201 ,71 ,240, 
14,201,72,240, 10,201 ,76,240,6,201 

283  DATA77, 240, 2, 56, 96, 202, 16,222,24,96, 
234,234,234,234,173,0,208,133,251 

284  DATA 173,16, 208 ,41,1,133, 252 , 234 , 234 , 
165,94,10,170, 189,0,208,133,253, 166 

285  DATA94, 169,0,56,42,202, 16,252,234,45 
,16,208,208,5,133,254,76,87,70,169 

286  DATA 1,133, 254 , 234 ,32,140,69, 208 ,1,96 
,234,144,12,173,40,208,201,245,240 

287  DATA13, 166,94,76, 123,70,234, 173,40,2 
08 , 201 , 245 , 240 , 243 ,166,94,76,142 

288  DATA70, 234, 166,94,32, 161 ,64,166,94,3 

2.159.69.144.5.166.94.32.208.64.96 

289  DATA234, 166,94,32,208,64, 166,94,32, 1 
59,69, 144,5,166,94,32,161 ,64,96,234 

290  DATA169 ,3 , 133,94,32,38,71,240,6,32,3 

6.70.32.212.70.198.94.208.241.96 

29 1  D AT A234 ,234,138,10,170,189,1, 208 , 24 , 
105,8,157,1 ,208,96,234,234,138,10 

292  DATA170,56, 189,1 ,208,233,8,157, 1,208 
,96,96,165,94,10,170, 189,1,208,133 

293  DAT A253, 173, 1,208, 133,251,169,0,133, 

252. 133.254.234.32.140.69.208.1.96 

294  DATA 144,26,173,40, 208 ,201, 245 , 240 , 27 
,234,166,94,32,181 ,70,166,94,32, 159 

295  DATA69, 144,5, 166,94,32, 196,70,96,173 
, 40 , 208 , 20 1 , 245 , 240 ,231, 234 ,166, 94 

2?6  DAT A32 , 196,70,166,94,32, 159,69,144,5 
, 166,94,32, 181,70,96,234, 165,162 
297  DATA170, 189,0, 160,41,3,201 ,0,96,234, 
-1 

300  : 

310  : 

320  : 

330  I NPUT !!  LgffigapSAT h=  >NA .  ODER  'j^TI-EST  ;  A 
Wf- 

340  I F AW$= " D " THEN50Q 
350  : 

360  REM  ********  TEST  -fr-*-**-*-*--*** 

370 

380  READA : GE=GE+ 1 : PF=PF+A : I FA< >- 1 THEN3S0 
390  : 

400  I FGE>5939THENPRI NT " ****  ZUVIELE  DATE 
N  **** 

410  IFGE<5939THENPRINT"****  ZUWENIG  DATE 
N  **** 

420  IFPF0676734THENPRINT"****  PRUEFSUMM 
E  VERKEHRT  **** 

430  I FPF< >676734THENPR I NT " D I FFERENZ : " 676 
734— PF 

440  I FPF< >6767340RGE<  >5939THENEND 
450  : 

460  : 

470  REM  ********  DATA-MA  ******** 

480  : 

490  RE5TORE 

500  FR INT" WENN  DIE  RICHTIGE  DISKETTE  EIN 

LIEGT , SK  BITTE  EINE  TASTE  DRUECKEN 

510  PDKE198 ,0 

520  GETA$ : I FAS= " " THEN520 

530  : 

540  0PEN1 ,8,2, "MA— PAC , PRG , WRITE" 

550  PRINT#1 ,CHR*<0)CHR*<48) ; 

560  FORT= 1 T05938 : READA : PR I NT# 1 , CHR$ ( A ) ; : 
NEXT 

570  PRINT#1 ,CHR* (13) : CLOSEI 
580  NEW 

ready.  Listing  »DATA-PAC«  (Schluß) 
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Von  den 
Kleinen  auf 
die  Großen 

Für  einen  so  erfolgreichen  Computer 
wie  den  Commodore  64  dauert  es  na¬ 
turgemäß  nicht  lange,  bis  auch  ent¬ 
sprechend  viel  gute  Software  zur  Ver¬ 
fügung  steht.  Viele  von  diesen  Pro¬ 
grammen,  die  nicht  die  speziellen  Ei¬ 
genschaften  des  C  64  benutzen,  könn¬ 
ten  ohne  weiteres  auf  den  CBM-Gerä- 
ten  der  3-,  4-  und  8000-Serie  laufen, 
wenn  Commodore  nicht  überflüssi¬ 
gerweise  den  Beginn  des  Basic-RAM- 
Bereichs  geändert  hätte. 

Während  jedoch  der  C  64  und  auch  der  VC  20  in  der  Lage 
sind,  auf  CBM-Geräten  erstellte  Basicprogramme  selbsttätig 
an  das  eigene  System  anzupassen  (siehe  dazu  den  entspre¬ 
chenden  Artikel  in  dieser  Ausgabe),  besitzen  die  CBM-Geräte 
diese  Fähigkeit  nicht.  Es  ist  vielmehr  Aufgabe  des  Anwenders 
die  Programme  anzupassen,  will  er  etwa  C  64-Programme  auf 
den  CBMs  laufen  lassen. 

Im  Heft  9/83  der  Zeitschrift  mc  wurde  eine  einfache  Mög¬ 
lichkeit  vorgestellt,  um  auf  C  64  erstellte  Programme  auch  für 
die  CBM-Geräte  lauffähig  zu  machen.  Es  werden  dabei  mit  Hil¬ 
fe  einer  Zählschleife  die  Inhalte  der  Speicherstellen  ab  2048 
(Beginn  des  C  64-Basic-Bereichs)  bis  Programmende  auf  die 
Speicherplätze  ab  1024  (Basic-Beginn  für  die  CBMs)  trans¬ 
feriert. 

Diese  Prozedur  dauert  je  nach  Länge  des  zu  transferieren¬ 
den  Programms  mitunter  ein  paar  Minuten.  Aus  diesem  Grund 
benutzte  ich  für  die  Umwandlung  von  C  64-Programmen  ein  ei¬ 
gens  dafür  erstelltes  Maschinenprogramm.  Ein  versehentlich 
in  den  Maschinenprogramm-Bereich  gePOKEter  Wert  sorgte 
eines  Tages  dafür,  daß  statt  des  ganzen  Programms  nur  ein 
Block  (256  Byte)  transferiert  wurde.  Erstaunlich  genug,  das 
(ansonsten  nicht  lauffähige)  Programm  ließ  sich  anstandslos 
listen! 

1  prj.  nt  "gj,,tab  ( 10)  “BBEEBItransf  er  C64  ->  c 

4  -fori  =0ta22:  readx  :  pake960+i  ,  x  :  next :  new: 

5  data 162,0 ,  189 , 1,8,157,1 ,4,232,208,247, 

6  data45, 133,47,96 


Diese  zunächst  überraschende  Tatsache  hat  eine  einfache 
Erklärung:  Die  Vorwärtszeiger  (die  ersten  beiden  Byte  einer  je¬ 
den  Basic-Zeile)  geben  den  Beginn  der  nächsten  Basic-Zeile 
absolut  an,  das  heißt  es  spielt  keine  Rolle,  ob  dieser  weniger  als 
80  Byte  oder  ein  ganzes  KByte  weiter  liegt — die  Zeile  wird  im¬ 
mer  richtig  angesprungen.  Daß  das  Programm  dann  nicht  auch 
noch  lauffähig  ist,  liegt  daran,  daß  der  Basic-Interpreter,  solan¬ 
ge  keine  Sprunganweisungen  Vorkommen,  sich  nicht  nach 
den  Zeilenzeigern  richtet,  sondern  die  Zeilen  byteweise  in  ihrer 
natürlichen  Reihenfolge  abarbeitet.  Stößt  er  dabei  auf  eine 
Lücke  zwischen  den  Zeilen,  so  kann  er  damit  nichts  anfangen, 
das  System  stürzt  ab. 

Folgende  Befehlssequenz,  etwa  in  Direktmodus  eingege¬ 
ben,  liefert  zum  Beispiel  die  Anfangsadressen  der  Zeilen  eines 
Basic-Programms: 

x=1025:  printx;:  fori=1to1000:  x=peek(x)  +  peek(x-PI) 
*256:  printx;:  ifx<  >Othennext 
Es  wurde  dabei  vorausgesetzt,  daß  das  vorliegende  Pro¬ 
gramm  nicht  mehr  als  1000  Zeilen  Umfang  hat.  Will  man  die  Ar¬ 
beitsweise  des  Betriebssystems  erkennen,  so  kann  man  in  der 
obigen  Zahlenfolge  in  eine  der  dort  stehenden  Adressen  (jede 
Adresse:  Zwei  Byte  in  der  Form,  Adresse  =  LSB  + 
MSB*  256)  statt  der  nächsten  eine  etwas  später  kommende 
Adresse  einPOKEn.  Alle  dazwischen  liegenden  Zeilen  ver¬ 
schwinden  dann  aus  dem  Listing,  sie  werden  aber  bei  RUN 
vom  Interpreter  abgearbeitet.  Die  »verschwundenen«  Zeilen 
werden  wieder  sichtbar,  sobald  eine  neue  Zeile  mit  RETURN 
»übernommen«  wird. 

Nehmen  wir  uns  die  Zeit,  um  uns  an  einem  Beispiel  klar  zu 
mc?  en,  was  eigentlich  im  letzten  Absatz  gemeint  ist.  Ange¬ 
nommen  die  Zeilen  eines  Basicprogramms  ergeben  die  Zah¬ 
lenfolge:  1025  1057  1092  1149  1226  1286  1350 
1412  1465  1500 

Das  sind  die  Adressen,  an  denen  jeweils  eine  Basic-Zeile 
beginnt,  und  zwar  steht  in  den  Speicherstellen  1025  und 
1026  zusammen  die  Adresse  1057,  in  1057  und  1058  die 
Adresse  1092  und  so  weiter.  Wenn  wir  nun  zum  Beispiel  in  die 
Adresse  1092  (und  1093)  etwa  die  Adresse  1350  einPOKEn 
könnten,  so  würden  die  Zeilen  dazwischen  vom  Listing  ver¬ 
schwinden,  der  Interpreter  würde  sich  aber  weiterhin  durch¬ 
laufen  und  abarbeiten.  Wie  geht  das  POKEn  vor  sich?  Wenn 
Ihr  System  den  Befehl  »doke«  kennt,  etwa  durch  eine  Erweite¬ 
rung  wie  Exbasic,  so  geben  Sie  einfach  ein:  dokel 092,1350. 
Wenn  nicht,  so  muß  man  sich  erinnern,  daß  eine  Adresse 
gleich  dem  Ausdruck  MSB *256+ LSB  ist,  wobei  MSB  und 
LSB  für  Most  Significant  (höherwertiges)  Byte  und  Least  Signi- 
ficant  (niederwertiges)  Byte  steht.  Es  ist  in  unserem  Beispiel: 
msb=int(1350/256):  lsb=1350-msb*256. 

msb  und  Isb  sind  hier  richtige  numerische  Variablen  und 
müssen  (das  gilt  für  die  ersten  zwei  Zeichen,  die  allein  relevant 
sind)  ungeSHIFTet  eingegeben  werden!  Sie  geben  jetzt  ein: 
pokel  092,lsb:poke1 093, msb 
Um  ein  C  64-Programm  auf  einem  CBM  listen  zu  können,  ist 
es  also  nicht  erforderlich,  erst  das  ganze  Programm  zu  ver¬ 
schieben,  es  genügt  nur  ein  Teil  davon.  Genauer:  ein  Teil,  der 

bmfcifcsiir  sprint  "akt  i  vieren  mit  fflsys  960  !  13" 
rem  verschieb.c64->cbin 

1 65 , 43 , 56 , 233 ,4,1 33 , 43 , 1 33 
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mindestens  eine  Zeile  enthält!  Der  Grund  liegt  darin,  daß  das 
System  erst  das  Ende  einer  Zeile,  gekennzeichnet  durch  eine 
0,  gefunden  haben  muß,  bevor  der  Sprung  in  die  nächste  Zeile 
erfolgt. 

Vorgehen:  Man  gibt  im  Direktmodus  ein: 
fori = 1 025to1 1 1 1  :pokei,peek(i + 1 024):next:poke43,peek 
(43)-4 

Der  Wert  1111  aus  mnemonischen  und  Sicherheitsgründen 
(1111  -  1024>  80,  Anzahl  der  Zeichen  in  einer  Basic-Zeile). 
Die  »Verschiebung«  dauert  etwa  eine  Sekunde. 

Man  listet  einige  Zeilen  des  Programms,  setzt  den  Cursor 
auf  die  erste  Zeile  und  übernimmt  sie  mit  RETURN.  Dadurch 
werden  auch  alle  anderen  Zeiger  richtig  gesetzt,  wobei  das 
Betriebssystem  gleichzeitig  die  einzelnen  Zeilen  lückenlos  in 
steigenden  Nummern  aneinanderfügt.  (Das  ist  übrigens  auch 
der  Grund,  warum  es  zwar  prinzipiell  möglich,  jedoch  nicht  ein¬ 
fach  ist,  etwarelokatible  Maschinenprogramme  zwischen  den 
Basic-Zeilen  zu  verstecken.  Über  die  Möglichkeit,  Textteile  in 
Basic-Zeilen  zu  verstecken,  werden  wir  bei  anderer  Gelegen¬ 
heit  reden).  Das  Programm  ist  jetzt  auch  auf  CBM-Geräten 
lauffähig,  von  systemgebundenen  Befehlen  natürlich  abgese¬ 
hen. 

Aber  auch  diese  Prozedur  ist  zeitraubend,  wenn  mehrere 
Programme  von  einem  System  auf  das  andere  übertragen 
werden  müssen.  Das  kleine  Basic- Programm  (siehe  Listing) 
namens  »transfer«  wäre  in  diesem  Fall  eine  bessere  Alternati¬ 
ve:  Es  erzeugt  ein  Maschinenprogramm  ab  Adresse  960  und 
löscht  sich  anschließend  selbst.  Das  Maschinen»programm« 
bleibt,  so  lange  der  Computer  nicht  ausgeschaltet  wird,  in  die¬ 
sem  Bereich  resistent,  verschiebt  beim  Abruf  mit  »sys  960«  ei¬ 
nen  einzigen  Block  des  C  64-Programms  ab  Adresse  2049 
auf  Adresse  1025  aufwärts  und  setzt  auch  die  Zeiger  für  den 
Beginn  der  Variablen  richtig. 

Vorgehen:  Das  Basicprogramm  »transfer«  laden  und  mit 
RUN  starten.  Anschließend  das  zu  verschiebende  Programm 
laden,  »sys  960«  eintippen  und  mit  RETURN  abschließen.  Da¬ 
durch  werden  die  ersten  256  Byte  des  Basicprogramms  »her¬ 
unter«  geholt.  Das  verschobene  Programm  läßt  sich  jetzt  li¬ 
sten.  Cursor  auf  die  erste  Zeile  setzen  und  mit  RETURN  über¬ 
nehmen.  Gegebenenfalls  eine  eigene  REM-Zeile  als  Zeile  mit 
der  niedrigsten  Nummer  übernehmen! 

(K.  Petanides/rg) 

User-Port- 

Display 

Mit  dem  User-Port-Display  lassen  sich 
viele  Steuerungsprobleme  lösen.  Da¬ 
bei  ist  es  manchmal  wichtig  zu  erken¬ 
nen,  ob  die  gewünschten  Daten  anlie- 
gen.  Dieses  Problem  löst  das  folgende 
Programm. 

Nachdem  ich  mir  im  Sommer  '83  einen  C  64  zugelegt  hatte, 
begann  ich  mich  als  vorheriger  Nur-Elektroniker  sofort  für  die 
Hardware  und  den  User-Port  des  Computers  zu  interessieren. 


Während  einiger  Steuerexperimente  kam  mir  die  Idee  zu  die¬ 
sem  Programm. 

Es  eignet  sich  gut  zum  Austesten  eigener  Ein/Ausgabeope- 
rationen.  Möchte  man  zum  Beispiel  fremde  Drucker  anschlie¬ 
ßen,  mit  anderen  Computern  (zum  Beispiel  anderen  C  64) 
kommunizieren  oder  irgendwelche  Steuerungsprobleme  lö¬ 
sen,  so  kann  man  mit  Hilfe  dieses  Programmes  jederzeit  (auch 
während  der  Basic-Programmbearbeitung)  erkennen,  ob  am 
User-Port  die  gewünschten  Daten  anliegen. 

Die  Routine  ist  in  Maschinensprache  geschrieben,  das  Li¬ 
sting  zeigt  den  Basic-Lader.  Nach  dem  Starten  des  Pro¬ 
gramms  wird  in  der  rechten  oberen  Ecke  des  Bildschirms  nach 
einmaligem  Aufruf  ständig  binär  der  momentane  Zustand  des 
Datenregisters  angezeigt. 

Mit  SYS  49309  setzt  das  Programm  den  IRQ-Vector  auf  die 
eigentliche  Anzeigenroutine. 

Mit  RUN/STOP-RESTORE  wird  der  Zeiger  wieder  zurückge¬ 
setzt. 

(Jan  Legenhausen/gk) 

10  rem  ****************************** 


15  rem  ***  userport- display  *** 
20  rem  ***  *** 
30  rem  ***  (c)  by  jan  legenhausen  *** 
40  rem  ***  *** 
42  rem  ***  nocken  11  *** 
44  rem  ***  *** 
46  rem  ***  56  Wuppertal  11  *** 
48  rem  ***  *** 
50  rem  ***  fuer  den  c— 64  *** 


55  Y  n  ****************************** 

60  rem  ***  start  mit  sys  (49309)  *** 

70  rem  ****************************** 

100  data  169,  48,  157,  30,  4,  169,  O,  15 

7,  30,  216,  173,  1 

110  data  221,  234,  96,  169,  192,  141,  1, 
192,  173,  1,  221,  162 
120  data  0,  160,  46,  140,  O,  192,  41,  12 

8,  208,  98,  32,  9 

130  data  192,  232,  160,  59,  140,  0,  192, 
41,  64,  208,  85,  32 


140 

data  9, 

192,  232,  160 

,  72, 

140 

,  o. 

92, 

41,  32, 

208,  72 

150 

data  32, 

9,  192,  232, 

160, 

85, 

140 

o. 

192,  41, 

16,  20B 

160 

data  59, 

32,  9,  192, 

232, 

160, 

98, 

40, 

0,  192, 

41,  8 

170 

data  208 

,  46,  32,  9, 

192, 

232, 

160 

111,  140,  O,  192,  41 

180  data  4,  208,  33,  32,  9,  192,  232,  16 
O,  124,  140,  O,  192 

190  data  41,  2,  208,  20,  32,  9,  192,  232 
,  160,  137,  140,  O 

200  data  192,  41,  1,  208,  7,  32,  9,  192 
210  data  76,  49,  234,  234,  169,  49,  157, 
30,  4,  169,  O,  157,  30,  216,  173,  1 
220  data  221,  108,  O,  192,  169,  24,  141, 
20,  3,  169,  192,  141 

230  data  21,  3,  96 

2000  -fors=49161to49152+167:  reada:  zz=zz+a 
: pokes,a: next 

2100  i-f  zz<  >1702Bthenprint"-f  ehler  in  data 
-zeilen  ! " :stop 
2110  sys49309 
ready. 

Der  Basic-Lader  des  Programms 
»User-Port-Display« 


97 

64er-online.r 


Ausgabe  8/August  1984 


TIPS  &  TRICKS 


Autostart  für 
den  VC  20 

Will  man  Programme  vor  unbefugten 
Eingriffen  schützen,  so  ist  dies  nur 
möglich,  indem  man  die  Programme 
auf  EPROMs  ab  $A000  schreibt,  die 
sich  dann  nach  dem  Einschalten  des 
VC  20  selbst  starten  (Modulspieie, 
Toolkit).  Es  ist  aber  auch  möglich,  sol¬ 
che  »Autostart«-Programme  mit  der 
Datasette  und  dem  VC  20  zu  generie¬ 
ren. 

Ein  automatischer  Programmstart  ist  überhaupt  erst  mög¬ 
lich,  weil  das  Betriebssystem  des  Computers  nach  dem  Laden 
eines  Programmes  vom  Kassettenrecorder  einen  indirekten 
Sprung  über  einen  Vektor  der  Zeropage  zu  einer  Routine  des 
Betriebssystems  durchführt.  Beim  VC  20  findet  dieser  Sprung 
über  den  Vektor  $0302/80303  zum  Basic-Warmstart  des  In¬ 
terpreters  statt.  Dieser  Vektor  ist  jetzt  so  zu  verändern,  daß  er 
auf  eine  selbstgeschriebene  Routine  zeigt,  die  dann  nach  dem 
Laden  eines  Programmes  von  der  Kassette  sofort  gestartet 
wird.  Um  nun  eine  Wirkung  zu  erzielen,  muß  dieser  Vektor  also 
während  des  Ladevorgangs  an  seine  ursprüngliche  Adresse 
($0302/$0303)  geschrieben  werden.  Normalerweise  wer¬ 
den  aber  Programme,  die  mit  SAVE  gespeichert  wurden,  vom 
Computer  als  Basic-Programme  angesehen  und  daher  nicht 
unbedingt  immer  an  ihre  ursprüngliche  Adresse  geladen,  son¬ 
dern  an  den  Anfang  des  Basic-Speichers  verschoben.  Spei¬ 
chert  man  dagegen  die  Programme  mit  SAVE  "Name”, 1,1  ab,  so 
werden  sie  später  immer  in  den  Speicherbereich  geladen,  in 
dem  sie  zum  Zeitpunkt  des  SAVEns  gestanden  haben.  Setzen 
wir  doch  zum  Beispiel  in  einem  Programm  (Listing  1)  den 
Basic-Warmstartvektor  auf  $FD22  (High  Byte:  253/  Low  Byte: 
34)  und  die  Basicanfang/ende-Zeiger  auf  den  Bereich  des 
LOAD-Vektors  ($2B:01/$2C:03/$2D:04/$2E:03).  Wenn  wir 
diesen  dann  mit  SAVE  "RESET’, 1,1  abspeichern,  erfolgt  nach 
dem  späteren  Laden  des  Programms  mit  LOAD  ein  Sprung  zu 
der  Adresse,  die  durch  den  Vektor  gekennzeichnet  wird.  In  die¬ 
sem  Fall  wird  sofort  nach  dem  Stoppen  des  Kassettenmotors 
ein  Reset  durchgeführt  (SYS  64802). 


Ein  kleiner  Trick  hilft  weiter 


Mit  dieser  Methode  läßt  sich  aber  nur  der  Basic- 
Warmstartvektor  abspeichern,  da  das  Programm  im  Basicspei- 
cher  steht  und  mit  dem  SAVE-Befehl  nur  zusammenhängende 
RAM-Bereiche  gespeichert  werden  können.  Daher  wird  ein 
Ladeprogramm  benutzt,  das  das  eigentliche  Basicprogramm  in 
den  Programmspeicher  lädt  und  selbst  im  unteren  Bereich  des 
Kassetten-Puffers  ($033C-$03FC)  steht.  Dort  wird  es  dann 
als  Name  (Tape-Header)  zusammen  mit  dem  veränderten  Vek¬ 
tor  auf  die  Kassette  geschrieben.  Damit  ist  auch  der  Wert  des 
Vektors  auf  den  Bereich  des  Kassetten-Puffers  festgelegt. 
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VC  20 


Wird  jetzt  der  Kassetten- Puffer  mit  dem  Basic- 
Warmstartvektor  (der  auf  den  Anfang  des  Ladeprogramms, 
$0355,  zeigt)  und  dem  Befehl  SAVE  ”  ”1,1  auf  eine  Kassette 
geschrieben  und  wieder  geladen,  fängt  der  Computer  nach 
dem  Stoppen  des  Kassettenmotors  sofort  an,  das  Programm 
ab  $0355  auszuführen.  Statt  des  Ladeprogramms  kann  auch 
eine  Hilfsroutine,  die  nicht  länger  als  192  Byte  ist,  in  den  Kas¬ 
settenpuffer  geschrieben  werden,  die  dann  nach  dem  Laden, 
ohne  speziellen  Startbefehl,  sofort  zur  Verfügung  steht. 
Schließlich  wird  das  zu  schützende  Basicprogramm  nach  dem 
Vektor,  ohne  Tape-Header  ( Program mname),  abgespeichert. 
Würde  das  Basic-Programm  normal  geSÄVEt  werden,  brauch¬ 
te  man  das  Autostart-Programm  nur  zu  übergehen  und  könnte 
das  zu  schützende  Basic-Programm  auch  so  laden.  Das  Lade- 
Programm  im  Kassetten puffer  lädt  dann  das  Basic-Programm 
in  den  Speicher.  Danach  werden  die  Vektoren  $0318/0319 
(NMI-Vektor)  und  $0308/80309  (Text-Stop-Vektor)  so  geän¬ 
dert,  daß  erstens  die  Stop-Taste  nicht  mehr  abgefragt  wird  und 
zweitens  beim  Versuch,  das  Basic-Programm  mit  RUN/STOP 
+  RESTORE  zu  stoppen,  das  Basic-Programm  abgebrochen 
wird  und  in  einer  Endlosschleife  die  Ausgabe  eines  Textes 
(»Autostart  ist  gesichert«)  erfolgt.  Zum  Schluß  wird  das  Basic- 
Programm  mit  RUN  (in  Maschinensprache:  JSR  $C659 
+JMP  SC7AE)  gestartet. 


Bedienung  des  Programms 
»Autostart«  (Listing  2) 


1.  Basic-Lader  eintippen  und  noch  einmal  genau  die  DATA- 
Statements  prüfen. 

2.  5.  .sic-Lader  mit  RUN  starten;  daraufhin  wird  das  Maschi¬ 
nenprogramm  generiert  und  vom  Basic-Lader  aus  mit  SAVE 
"Autostart  Gen  “1,1  gspeichert. 

3.  Laden  des  Maschinenprogramms  "Autostart  Gen.“  mit  LOAD 
und  Eingabe  von:  POKE  56,28:NEW. 

4.  Laden  des  zu  schützenden  Programms. 

5.  Autostart-Generator  mit  SYS  7168  starten. 

6.  Programmname  auf  Aufforderung  hin  eingeben;  das  zu 
schützende  Programm  wird  dann  als  Autostart-Programm 
geSAVEt. 

Es  ist  darauf  zu  achten,  daß  die  Programme,  die  mit  Autostart 
versehen  werden,  ausgearbeitete  Programme  sind,  die  nicht 
noch  irgendeine  Ergänzung  oder  Verbesserung  benötigen.  Da 
die  Autostart-Programme  nicht  mehr  zu  stoppen  sind,  kann 
später  auch  nicht  mehr  an  ihnen  gearbeitet  werden,  so  daß  ein 
unfertiges  Programm  noch  einmal  neu  eingetippt  werden 
müßte. 

10  POKE43,1:POKE44,3:POKE45,4:POKE46,3:CLR: 

REM  Basicanfang/ende  setzen 
20  POKE770,34:POKE77 1,253:  :REM  Basic- 

Warmstartvektor 
30  SAVE  "Reset”, 1,1 

40  POKE770,131:POKE771,196:POKE43,1:POKE44, 
18:POKE45,185:POKE46,18:END 
50  REM  Zeiger  und  Vektoren  wieder  auf  alten  Wert 
bringen 

Das  Programm  "Autostart"  läuft  nur  auf  einem  VC  20  mit  3,5 
KByte  Speicher  (Grundversion)  sowie  der  Datasette  und  be¬ 
legt  die  obersten  beiden  Pages  von  7168  bis  7616.  Die  ver¬ 
schlüsselten  Programme  werden  automatisch  in  den  Grund¬ 
versionsspeicher  geschrieben.  Daher  ist  es  mit  dieser  Version 
nicht  möglich,  Programme,  die  auf  einer  Speichererweiterung 
laufen,  mit  "Autostart”  zu  versehen. 

(Dirk  Rother/ev) 
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0  P0KE36879 ,  8 : PR I NT " Lk  AUTOSTART" : PRINT" 
{^COPYRIGHT  1983"  :  PRINT"B8BY  D.ROTHER" 

1  PR INT" ^PROGRAMM  WIRD  GELADEN  (AB7168) 


2  PQKE56 , 28 : P0KE55 ,0s  CLR 

3  FÜR 1=71 68T076 1 7 : READA : PO KE I , A : SU=SU+A : 
NEXT : I FSLK  >40847THENPR I NT " T I PPFEHLER " : EN 
D 

4  PRINT"EBITTE  US  SPACE  ■  DRUECKEN" :  WAIT1 
98 , 1 : PR I NT " SJ'IASCH I NENPROGR AMM  WIRD  GESPE 
ICHERTB3S" 

5  P0KE56 , 30 : P0KE44 , 28 : P0KE43 , O : PÜKE46 , 29 
: PQKE45 , 200 : SAVE " AUTOSTART  GEN .",1,1 

6  P0KE43 ,1s  P0KE44 , 16 : P0KE45 , 172: P0KE46 , 2' 
3:  END 

22  DATA169, 8, 141 ,15,144,169,3,141, 134,2, 
32,95,229,162,20,169,32, 157,236,28,202,2 
08 

24  DATA250 ,169,168,160,28,32,30, 203 ,162, 
0,169,0, 133,198, 165, 198,240,252,173,119 
26  DATA2,201 , 13,240, 13,157,236,28,41 ,63, 
157, 132,30,232,224,20, 144,228, 165,43, 141 
28  DATA 131 ,29,165,44,141 , 132,29,165,45,1 

41 . 133.29. 165.46.141 .134.29. 173.2.3.72.1 
73 

30  DATA3,3 ,72, 169,3,133,44,133,46,141 ,3, 

3.169.1. 133.43.169.4. 133.45. 169.85.141.2 
32  DAT  A3 , 1 69 ,191 ,162,236,160,28,32,189,2 
55,169,1,170,168,32, 186,255,32,86,225,17 

3  1 

34  DATA131 ,29,133,43, 133,193,173,132,29, 
133,44,133,194, 173,133,29,133,45,133,174 
36  DATA173, 134,29, 133,46, 133, 175,104,141 
,3,3,104,141 ,2,3,76,21 ,247,65,85,84,79,8 
3 

38  DATA84, 65, 82, 84, 13,32,40,67,41 ,49,57, 
56,52,13,68,46,32,82,79,84,72,69,82,13,1 
3 

40  DATA80, 82, 79, 71 ,82,65,77,77,78,65,77, 
69,58,13,13,45,45,45,45,45,45,45,45,45,4 
5 

42  DATA45, 45,45, 45,45, 45,45, 45,45, 45, 13, 
13,0,80,71,77,45,83,67,72,85,84,90,32,73 
44  DATA32, 32, 32, 32, 32, 32, 32, 32, 32, 91 ,228 
,32,82,253,169,0,141,34,145, 173,216,3,13 

3 

46  DATA193, 133,43,173,217,3,133,194,133, 
44, 173,218,3,133,174,133,45,173,219,3,13 

3 

48  DATA175, 133,46,32,61 ,246,169,3,141 ,25 
,3, 141,41,3,169, 161,141 ,24,3,169,156,141 
50  DATA40 , 3 , 169,255, 141,34, 145,32,89,198 
,76,174,199,169,0,201,254,96,169,0,141,3 

4 

52  DATA145,32,95,229, 169,8, 141 ,15,144,16 
9,1,141, 134,2,169,189,160,3,32,30,203,76 
54  DATA 166,3,65,85,84,79,83,84,65,82,84, 
13,32,32,32,73,83,84,13,71,69,83,73,67,7 
2 

56  DATA69,82,84,0, 1, 16, 171 ,17,32,32,32,3 
2,32,32,32,32, 32 ,32,32,32,32, 32 , 32 ,32,32 
58  DAT A32 , 32 , 32 , 32 , 32 ,32,32, 32 , 32 ,32,32, 
32,0,0,1,255,255,255,255,255,128,0,0,0,0 
60  DATA255 , 255 , 255 , 255 ,32,32,32,32,32,32 
, 32 ,32,32,32,32,0,0 
62  DAT A2 , 3 , 72 , 173,3 
READY. 


Listing  2.  Basic-Lader  für  ”Autostart“ 


View  BAM 

Dieses  Programm  zeigt  Ihnen  sekun¬ 
denschnell,  wie  und  wo  die  Floppy  Da¬ 
teien  und  Programme  abspeichert, 
welche  Blöcke  noch  frei  sind  und  wel¬ 
che  nicht. 


Das  hier  vorgestellte  Programm  stellt  die  sogenannte  BAM 
der  Disketten  grafisch  auf  dem  Bildschirm  des  C  64  dar.  Das 
gesamte  Programm  ist  in  Maschinensprache  geschrieben  und 
daher  sehr  schnell.  Es  ist  dem  Viewbam-Programm,  das  von 
Commodore  auf  der  Testdiskette  mitgeliefert  wird,  in  zweierlei 
Hinsicht  überlegen: 

1.  ist  es,  wie  bereits  erwähnt,  um  ein  Vielfaches  schneller  und 

2.  stellt  es  übersichtlich  die  gesamte  Diskettenbelegung  dar, 
wobei  freie,  belegte  und  nicht  belegbare  Blöcke  gut  zu  erken¬ 
nen  sind. 

Eine  Hardcopy  läßt  sich  auch  leicht  anfertigen  (siehe  Bild  1). 

Das  Programm  braucht  inklusive  Ladezeit  des  Blockes  18/0, 
auf  dem  die  BAM  gespeichert  ist,  unter  drei  Sekunden  zur  Aus¬ 
führung.  (Im  Vergleich  zum  Viewbam  von  Commodore,  das  73 
Sekunden  benötigt.) 

Es  ist  interessant  zu  sehen,  wie  das  DOS  Files  abspeichert, 
welche  Blöcke  noch  frei  sind  und  welche  nicht.  Ich  wurde 
durch  die  geringe  Geschwindigkeit  und  die  fehlende  Möglich¬ 
keit  des  Viewbam  von  Commodore,  alle  Blöcke  auf  einmal  zu 
betrachten,  zu  diesem  Programm  animiert. 

Die  Routine  läuft  auf  dem  C  64  von  Commodore  mit  dem 
Floppy-La~  werk  VC  1541.  Die  Routine  steht  im  geschützten 
Speicherbereich  $C000-$C21C,  dezimal  49152  bis  49693. 
Man  kann  sie  auch  in  einem  Basicprogramm  aufrufen. 

Mit  diesem  Programm  wird  in  grafischer  Darstellung  ersicht¬ 
lich,  wieviele  von  den  664  Blöcken  besetzt  beziehungsweise 
frei  sind. 

Nach  mühevoller  Eingabe  der  Data-Zeilen  und  des  Ladepro¬ 
gramms  sollte  man  dieses  erst  einmal  auf  Diskette  sichern. 

Eine  Prüfsumme  wird  berechnet;  dadurch  vermeidet  man 
eventuelle  Eingabefehler. 

Zuerst  wird  die  BAM,  die  sogenannte  »Block  Availiability 
Map«,  von  der  Floppy  in  den  Speicher  des  Computers  gela¬ 
den.  Die  BAM  ist  im  Block  18/0,  das  heißt  Track  18,  Sektor  0, 
auf  jeder  Diskette  gespeichert. 


Die  BAM  umfaßt  256  Bytes,  die  im  einzelnen  folgende  Be¬ 
deutung  haben: 

Bytes  0-1  Track  und  Sektor  vom  ersten  Directory-Block 


Byte  2 

Byte  3 
Bytes  4-143 


(meistens  18/1). 

Hier  steht  ein  »A«  (ASCII-Code  65) 
für  das  4040  Format 
nicht  belegt 

Hier  stehen  die  für  dieses  Programm  wichtigen  Infor¬ 
mationen 


Bytes  144-161 
Bytes  162-163 
Byte  164 
Bytes  165-166 
Bytes  166-167 
Bytes  168-255 


Diskettenname,  aufgefüllt  mit  geshifteten  Leerzeichen 
Disk  ID 

Geshiftetes  Leerzeichen 
»2A«-ASCII  Repräsentation  für  die  DOS-Version 
Geshiftete  Leerzeichen 
Nullen,  unbenutzt 


Es  existieren  35  Tracks,  für  jeden  Track  wurden  in  dem  für 
uns  wichtigen  Bereich  von  Byte  4  bis  Byte  143  vier  Bytes  re¬ 
serviert.  Die  Tracks  sind  auch  noch  in  Sektoren  unterteilt,  ma¬ 
ximal  21  und  mindestens  17,  dies  ist  durch  die  Formel 
2*  Pi ‘Radius  begründet,  das  heißt,  daß  bei  kleinerem  Radius 
nach  innen  weniger  Raum  zur  Verfügung  steht. 
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Das  erste  Byte  eines  jeden  Viererblocks  gibt  die  Anzahl  der 
noch  freien  Blöcke  in  diesem  Track  an. 

Die  nächsten  drei  Bytes  beinhalten  die  Informationen,  wel¬ 
che  Sektoren  in  dem  Track  belegt  sind,  und  welche  nicht. 

Jedes  Byte  besteht  aus  8  Bit  und  kann  somit  über  8  Sekto¬ 
ren  Auskunft  geben.  Ein  gesetztes  Bit  (1)  bedeutet:  freier,  ver¬ 
fügbarer  Block,  ein  nicht  gesetztes  Bit  (0)  bedeutet  das  Ge¬ 
genteil,  dieser  Block  (Track/Sektor)  ist  belegt. 

Aus  diesen  Informationen  kann  man  dann  ein  überschau¬ 
bares  Bild  schaffen.  (Jörg  Schieb/gk) 


0  DATAB5, 49 , 58 , 30 , 32 , 48 , 32 , 49 , 56 , 32 , 48 , 1 
3,162,1 ,32,201,255, 162,0,189,0 

1  DATA192, 32, 210, 255, 232, 224, 12,208,245, 
96,66,45,80,58,50,32,48, 13,32,204 

2  DATA255, 162,1 ,32,201 ,255 , 162 , 0 , 189 , 31 , 
192,32,210, 255 , 232 , 224 , 8 , 208 , 245 

3  DATA96, 169,1,162,8, 160,15,32,186,255,1 
69,0,32,189,255,32,192,255, 169 

4  DATA2, 162, 8, 160, 2, 32, 186, 255, 169,35, 13 
3,251,162,251,160,0,169,1,32,189 

5  DATA255, 32, 192,255,32, 12, 192,32,39, 192 
,32,204,255, 162,2,32, 198,255,162 

6  DATAO, 32, 207, 255, 157,0,142,232,208,247 
,32,204,255, 169,1,32, 195,255,162 

7  DATAO, 189, 194,193,32,210,255,232,224,5 
8,208,245,162,144, 189,0, 142,32 

8  DATA210, 255, 232, 224, 162,208,245, 169, 13 
,32,210,255, 162,0, 189,252, 193,32 

9  DATA210, 255, 232, 224, 12,208,245, 173, 162 
, 142,32,210,255,173, 163, 142,32 

10  DAT A2 10, 255 , 169,13,32,210,255,32,210, 
255, 169,5,32,210,255, 160,20, 152 

1 1  DATA72, 170,201 , 10,176,5,169,32,32,210 
,255,169,0,32,205, 189,169,45,32 

12  DAT A2 1 0 , 255 , 104,72,240,5,169,13,32,21 
0,255, 104,168,136, 16,220,162,2,160 

13  DATA3,32, 10,229, 160,4,169,48,162,9,20 
8,10,192,1,240,4,162, 10,208,2,162 

14  DATA6, 32, 210, 255, 202, 208, 250, 24, 105,1 
, 136,208,234, 162,3,160,3,32,10,229 

15  DATA160, 35, 169,49,32,210,255,24, 105,1 
,201 ,58,144,2,169,48,136,208,241 

16  DATA 169,1 , 133,2,162,4,165,2,105,2,168 
,32, 10,229,162,20, 134, 139,169,142 

17  DATA 133, 141 ,169,1, 166,2,105,4,202,208 
,251 , 133, 140,165,139, 166,2,224,18 

18  DAT A 1 44 , 32 , 224 , 25 , 144,20,224,31 ,144,8 
,201,17,144,20, 162,8,208,42,201 

19  DATA18, 144, 12, 162,8,208,34,201 , 19,144 
,4, 162,8,208,26, 165,139,74,74,74 

20  DATA168, 177, 140,168,165,139,41,7,170, 
152,61,8, 194,208,4,162,0,240,2,162 

21  DATA4, 160,4, 189, 16, 194,32,210,255,232 
, 136,208,246, 165,139,240,5, 169,17 

22  DATA32, 2 10,255, 198,139,16, 165,230,2,1 
65,2,201,36, 208 ,128,32,231, 255 , 1 69 

23  DATAO, 133,198,165,198,240,252,96,147, 
5,18,32,146,61,66,69,76,69,71,84 

24  DATA44 , 46 ,61 ,70,82,69,73,44,78,61,48, 
32, 18,40,67,41,49,57,56,52,32,66 

25  DATA89, 32, 74, 46, 32, 83, 67, 72, 73, 69, 66, 
146,158,68, 73 ,83,75,78,65,77,69 

26  DAT A32 ,58,32,157,157,157,157,157,157, 
157,73,68,32,58,32,1,2,4,8,16,32 

27  DATA64, 128, 18,32, 146, 157, 158,46,5, 157 
, 156,78,5,157,169,2 

1000  REM  ************************** 

1010  REM  *  VIEWBAM  FUER  DEN  VC64  * 

1020  REM  *  (C)  1984  BY  J.  SCHIEB  * 

1030  REM  *  R I CHARD-WAGNER-STR . 58  * 

1040  REM  *  4050  MOENCHENGL ADBACH 1  * 

1050  REM  *  * 


1060  REM  *  STARTEN  MIT  SYS  49213  * 

1070  REM  ************************** 

1080  REM 

1090  REM  LADEROUTINE  : 

1100  FÜR  X=49152  TO  49693 

1110  :  READ  Y 

1120  :  PQKE  X,Y 

1130  :  S=S+Y 

1140  NEXT 

1150  IF  S< >63349  THEN  PRINT"**  FEHLER  IN 
DATAS  ! !  **" : END 
1160  REM  NEW 

READY. 


Der  Basic-Lader  von  »Vier  BAM« 


B=EELE6T  ,  .  =FRE  I  ,  N=0  Et«** 9» 3W ;»!=*:] 
DISKNAME  :  DEMODISC  ID  :  DE 

0000000001 1111111 112222222222333333 
1 234567890 1 234567890 1 234567890 1 2345 

20- _ .....  UüfflfflHSBSSfflff'JNNNNNNNNNNNNNNNNN 

19- . .  ■■■■■■NNNNNNNNNNNNNNNNNN 

18- . ligaasasüSBs.  hbbmbnnnnnnnnnnn 

. . . nnnnn 


BB=BELEGT  ,  .  =FRE  I  ,  N=0 

DISKNAME  :  HERLET  012  ID  :  S2 

0000000001 11111111 12222222222333333 
1 234567890 1 234567890 1 234567890 1 2345 


20-1 
19-, 
18-1 
17-1 
16- 
15-1 
14-1 
i: 
12-1 
11-1 
10-1 


7- 

6—1 

5-1 

4-1 

3-1 

2-1 

1-1 

0-1 


■ 

Bild  1.  Zwei  Beispiele  von  »View  BAM« 
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VC  20 

»PRINT  AT« 
und 

»RESTORE  N« 

Die  hier  vorgestellte  kleine  Basic- 
Erweiterung  bringt  zwei  häufig  benö¬ 
tigte  Funktionen,  nämlich  die  PRINT- 
Ausgabe  an  einer  wählbaren  Bild¬ 
schirmposition  und  das  Setzen  des 
DATA-Zeigers  auf  einen  bestimmten 
Datensatz.  Zusätzlich  ist  noch  die 
Möglichkeit  gegeben,  beliebige  Bild¬ 
schirmzeilen  zu  löschen. 

In  vielen  Leserbriefen  wurde  nach  einem  geeigneten  »PRINT 
AT«  gefragt.  Da  bislang  keine  optimale  Lösung  angeboten  wur¬ 
de,  habe  ich  nun  einen  »PRINT  AT-Ersatz«  geschrieben.  Diese 
Ersatzroutine  arbeitet  sehr  zuverlässig  und  ist  denkbar  einfach 
anzuwenden.  Das  146  Bytes  lange  Maschinenprogramm  ent¬ 
hält  außerdem  eine  Routine,  mit  der  man  beliebig  viele  Bild¬ 
schirmzeilen  löschen  kann  und  eine  Erweiterung  des  Restore- 
befehls,  nämlich  »RESTORE  N«.  Es  ist  nun  möglich,  die  Data- 
Zeile,  aus  der  das  nächste  Statement  gelesen  werden  soll, 
selbst  zu  bestimmen,  ohne  die  nichtbenötigten  Daten  zu  über¬ 
lesen.  Der  Datazeiger  kann  zum  Beispiel  mit  »RESTORE  1100« 
direkt  auf  Zeile  1100  gestellt  werden  und  beim  ersten  »READ« 
wird  das  erste  Statement  aus  Zeile  1100  gelesen.  Beim  Umnu¬ 
merieren  eines  Programmes  mit  diesem  Befehl  ist  die  Zeilen¬ 
angabe  von  Hand  zu  ändern,  da  Renumberroutinen  diesen  Be¬ 
fehl  nicht  berücksichtigen.  Der  Restore-Befehl  kann  nach  wie 
vor  auch  ohne  Angabe  einer  Zeilennummer  verwendet  wer¬ 
den. 

Für  die  Bildschirmzeilen-Löschroutine  steht  ein  Kurzbefehl 
zur  Verfügung.  Die  Syntax  ist  »£A,B«.  In  A  steht  die  Nummer 
der  obersten,  in  B  die  Nummer  der  untersten  zu  löschenden 
Zeile.  Beispiele: 

£0,22  löscht  den  ganzen  Bildschirm 

£0,0  löscht  die  oberste  Zeile 

£4,9  löscht  BS-Zeilen  4  bis  9  (5.  bis  10.  von  oben) 

Das  besondere  an  dieser  Einrichtung  ist,  daß  die  Cursorpo¬ 
sition  dabei  nicht  verändert  wird.  Folgt  der  »£«-Befehl  auf  eine 
IF.THEN-Abfrage,  so  ist  vor  dem  »£«-Befehl  ein  »:«  zu  setzen. 
Wird  er  vergessen,  meldet  der  Interpreter  einen  »Syntax  Er¬ 
ror«.  Die  Werte  von  A  und  B  müssen  zwischen  0  und  22  liegen. 

Auch  die  PRINT  AT-Routine  wird  mit  einem  Kurzbefehl  aufge¬ 
rufen.  Das  Kurzzeichen  ist  der  Klammeraffe  (»@«)  oder  besser 
das  »AT«-Zeichen.  Die  Syntax  lautet:  »@,  X,  Y;  Ausdruck«.  X 
steht  für  waagerecht,  Y  für  senkrecht. 

X  darf  Werte  zwischen  0  und  21,  Y  Werte  zwischen  0  und  22 
erreichen.  Andernfalls  wird  ein  »Illegal  Quantity  Error«  ausge¬ 
geben.  Für  X  und  Y  sind  möglich: 

1.  Direkte  Zahlenangabe 

2.  Wertangabe  in  Form  einer  Variablen 

3.  Eine  Formel  als  Koordinate. 

Der  Ausdruck  kann  Text  (in  Hochkommata  eingeschlossen, 
Strichpunkt  kann  entfallen)  oder  eine  Stringvariable  (Strich¬ 
punkt  unbedingt  erforderlich)  sein.  Der  Nullpunkt  der  Koordi¬ 
naten  ist  die  obere,  linke  Ecke.  Einige  Beispiele: 


@0,0"V  C  -  2  0”  Text  beginnt  oben  links 

@X,Y”V  C  -  2  0”  Text  erscheint  an  gegebener  Position 

@A+B,3+A;A$  String  A$  wird  gedruckt 

@0,10;  Cursor  wird  für  »Input«  positioniert 

Auch  hier  ist  bei  einer  IF...THEN  Abfrage  zwischen  »THEN« 
und  dem  »@«-Befehl  ein  »:«  zu  setzen. 

Das  Programm  läuft  sowohl  auf  der  VC  20-Grundversion  als 
auch  mit  Erweiterung,  nicht  jedoch  mit  der  40-Zeichen-Karte. 

Der  Basiclader  (Listing)  lädt  das  Maschinenprogramm  ans 
Speicherende.  Hierzu  wird  der  für  Basic  zur  Verfügung  ste¬ 
hende  Speicherplatz  um  256  Bytes  verkürzt.  Dies  übernimmt 
Zeile  10.  In  Zeile  20  wird  die  Anfangsadresse  berechnet  und 
dann  das  Maschinenprogramm  in  den  Speicher  gepoket.  Ne¬ 
benbei  wird  eine  Prüfsumme  gebildet.  Sollte  diese  nicht  gleich 
17442  sein,  wird  der  Programmablauf  in  Zeile  70  abgebro¬ 
chen.  Ist  der  Prüfsummencheck  OK  (dies  meldet  das  Pro¬ 
gramm),  wird  das  Maschinenprogramm  aufgerufen  (Zeile  90). 
Abschließend  meldet  der  VC  20  Interpreter  »READ«  und  die 
Befehle  stehen  nun  zur  Verfügung.  Wenn  das  Maschinenpro¬ 
gramm  an  einer  bestimmten  Stelle  des  Speichers  stehen  soll, 
kann  dies  durch  Löschen  der  Programmzeile  10  und  Ändern 
der  Zeile  20  in  »20  ES=  [ADRESSE]«  erreicht  werden.  Einen 
geeigneten  Platz  bietet  zum  Beispiel  die  3KByte-Erweiterung, 
wenn  Block  1  erweitert  (8KByte  oder  16KByte)  ist.  Auch  der 
Kassettenpuffer  (AB  828)  ist  verwendbar,  jedoch  nur  bei  Dis¬ 
kettenbetrieb  empfehlenswert,  da  das  Programm  dann  bei  je¬ 
der  Kassettenoperation  gelöscht  wird. 

(Jürgen  Reinert/ev) 


1  REM  ************************ 

2  REM  *  PRINT  AT  /  RESTORE  N  * 

3  REM  *  (C)  1983  * 

4  REM  *  BY  JUERSEN  RE INERT  * 

5  k-  1  ************************ 

6  : 

7  : 

10  P0KE56 , PEEK ( 56 ) — 1 : CLR 
20  ES=PEEK  ( 55 )  +256*F'EEK  ( 56 )  +2 
30  HB=INT(  (ES+U) /256) 

40  LB=ES+11-HB*256 

50  FORI =OTG 1 45 : RE AD A : POKE I +ES , A 

60  S=S+A: NEXT 

70  IFS<>17442THENPRINT"tSDATA  ERROR®“  :  END 
80  PR INT "KOK.®" 

90  POKEES+ 1  ,  LB : POKEES+6 , HB : SYSES : END 

100  F0RI=0T0145: READA: NEXT 

110  DATA169, 11 , 141 ,8,3,169,8 

120  DATA141 ,9,3,96, 169, 199,72 

130  DATA169, 173,72,32, 115,0,240 

140  DATA244, 201 , 140,240,8,201 

150  DAT A64, 240, 38, 208, 76, 234 

160  DATA234, 32, 1 15,0,240,26,201 

1 70  D AT A58 , 240 ,22,32,138, 205 

180  DATA32,247,215,32, 19, 198 

190  DATA56, 165,95,233, 1, 164 

200  DATA96, 176, 1 , 136,76,39,200 

210  DATA76, 29, 200, 32, 1 15,0,32 

220  DATA158, 215, 224, 22, 176,24 

230  DAT Al 38, 72, 32, 253, 206, 32 

240  DATA158, 2 15, 104,224,23, 176 

250  DATA1 1,168, 24, 32, 240, 255 

260  DATA32, 121 ,0,76, 160,202,76 

270  DAT A72 ,210, 234 , 234 , 234 , 20 1 

280  DATA92,240,4,56,76,237, 199 

290  DAT A32 , 115,0,32,235,215,224 

300  DATA23, 176,232, 164,20, 192 

310  DAT A23, 176,226,32, 141 ,234 

320  DATA202, 228, 20, 16,248,76 

330  DATA121 ,0,0, 0,0 

READY. 


PRINT  AT  und  RESTORE  N  für  den  VC  20 
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Die  große 
Software-Viel* 
falt  der  CBMs 
für  den  C  64 
ausnützen 

Den  meisten  Anwendern  wird  sich 
schon  einmal  das  Problem  gestellt  ha¬ 
ben,  wie  sie  Programme  von  anderen 
Computersystemen  auf  ihr  eigenes 
übertragen  können.  Dieser  Artikel  soll¬ 
te  es  jedem  ermöglichen,  auch  kom¬ 
plexe  Basicprogramme  der  weitver¬ 
breiteten  Commodore-Systeme  CBM 
30XX,  CBM  40XX  (hier  kurz  als  CBMs 
bezeichnet)  und  C  64  füreinander  um¬ 
zuschreiben. 

Hat  man  das  Programm  fertig  eingegeben  und  auf  Kassette 
oder  Diskette  abgespeichert,  so  ist  das  Laden  von  CBM- 
Programmen  in  den  C  64  kein  Problem:  Disketten-  und  Kasset¬ 
tenformat  sind  identisch  (zumindest  bei  den  Doppellaufwerken 
2031  und  4040  mit  dem  Einzellaufwerk  VC  1541).  DerBasic- 
Benutzerspeicher  beginnt  beim  C  64  mit  der  Speicherstelle 
2048  und  endet  bei  40959.  Ein  spezielles  »Verschiebepro¬ 
gramm«  im  C  64  sorgt  dafür,  daß  CBM-Programme  in  den  rich¬ 
tigen  Speicherbereich  geladen  werden.  Wer  jedoch  schon 
einmal  versucht  hat,  C  64-Programme  in  einen  CBM  zu  laden, 
wird  damit  keinen  Erfolg  gehabt  haben,  denn  die  CBMs  besit¬ 
zen  kein  solches  Programm.  Dort  beginnt  der  Speicher  für 
Basic-Programme  bei  1024  und  endet,  je  nach  RAM- 
Ausbaustufe  (8  KByte,  16  KByte  oder  32  KByte)  bei  späte¬ 
stens  32767.  In  einen  CBM  geladene  C  64-Programme  sind 
ohne  Verbiegung  von  Zeigern  weder  zu  listen  noch  zu  starten. 
Man  könnte  bei  den  CBMs  nach  dem  Laden  den  Zeiger  für  den 
Programmanfang  verändern  (durch  den  Befehl  »POKE 
40,0:POKE  41,8«),  aber  man  müßte  dies  jedesmal  nach  dem 
Laden  tun,  ein  auf  die  Dauer  sehr  umständliches  Verfahren.  Ein 
entsprechendes  »Verschiebeprogramm«,  welches  diesen  Auf¬ 
wand  vermeidet,  finden  Sie  unter  der  Überschrift  »Von  den 
Kleinen  auf  die  Großen«  in  dieser  Ausgabe.  Nun  zur  eigentli¬ 
chen  Arbeit,  dem  Umschreiben:  Alle  Computer  haben  die  glei¬ 
chen  Basic-Anweisungen  (bis  auf  die  CBMs  der  Serie  4000, 
welche  zusätzlich  komfortable  Diskettenbefehle  besitzen).  Sie 
unterscheiden  sich  im  wesentlichen  nur  durch  die  Speicher¬ 
belegung  und  die  Farbe,  die  Sprites  und  die  hochauflösende 
Grafik  des  C  64. 

Der  Bildschirmbereich: 

Die  meisten  Basicprogramme  erstellen  bewegte  Grafiken 
mit  Hilfe  der  Befehle  PEEK  und  POKE.  Im  Bildschirmbereich 
wird  durch  den  Befehl  »POKE  X,  Y«  an  der  Stelle  mit  der  Adres¬ 
se  X  das  Zeichen  mit  dem  Bildschirm-Code  Y  gesetzt.  Ge¬ 


löschtwird  es  dann  durch  den  Befehl  »POKE  X,  32«,  denn  die 
Zahl  32  entspricht  dem  Leerzeichen  (Blank).  Durch  PRINT 
PEEK(X)  kann  man  abfragen,  welches  Zeichen  sich  an  der 
Stelle  X  befindet.  Der  Bildschirmcode  ist  bei  allen  drei  Syste¬ 
men  identisch.  Jedoch  liegt  der  Bildschirmspeicher  an  unter¬ 
schiedlichen  Stellen:  Bei  den  CBMs  zwischen  32768  und 
33767,  beim  C  64  zwischen  1024  und  2023.  Wenn  man  ein 
CBM-Programm  auf  den  C  64  überträgt,  muß  man  also  von  al¬ 
len  Bildschirmadressen  31744  subtrahieren,  umgekehrt 
31744  addieren. 

Jedoch  kommt  da  noch  ein  kleines  Problem  hinzu:  Der  C  64 
kann  16  Farben  darstellen.  Dazu  besitzt  er  einen  Farbenspei¬ 
cher,  welcher  ganz  analog  zum  Bildschirmspeicher  zu  behan¬ 
deln  ist.  Er  beginnt  bei  55296  und  endet  bei  56295;  die  Diffe¬ 
renz  zwischen  Bildschirmadresse  und  Farbadresse  beträgt 
54272.  Wenn  man  also  ein  CBM-Programm  für  den  C  64  um- 


gedrückte  Taste 

CBM  30XX 

CBM  40XX 

Commodore  64 

— 

75 

95 

57 

1 

26 

49 

56 

2 

18 

50 

59 

3 

25 

51 

8 

4 

42 

52 

11 

5 

34 

53 

16 

6 

41 

54 

19 

7 

58 

55 

24 

8 

50 

56 

27 

9 

57 

57 

32 

0 

10 

48 

35 

-1- 

17 

43 

40 

— 

9 

45 

43 

£ 

- 

- 

48 

HOME 

7 

19 

51 

•NS/DEL 

? 

? 

0 

Q 

64 

81 

62 

W 

56 

87 

9 

E 

63 

69 

14 

R 

55 

82 

17 

T 

62 

84 

22 

Y 

54 

89 

25 

U 

23 

86 

30 

1 

53 

73 

33 

0 

60 

79 

38 

P 

52 

80 

41 

@ 

15 

64 

46 

* 

33 

42 

49 

t 

59 

94 

54 

A 

48 

65 

10 

S 

40 

83 

13 

D 

47 

68 

18 

F 

39 

70 

21 

G 

46 

71 

26 

H 

38 

72 

29 

J 

45 

74 

34 

K 

37 

75 

37 

L 

44 

76 

42 

= 

1 

61 

53 

RETURN 

27 

13 

1 

Z 

32 

90 

12 

X 

24 

88 

23 

c 

31 

67 

20 

V 

23 

86 

31 

B 

30 

66 

28 

N 

22 

78 

39 

M 

29 

77 

36 

70 

44 

47 

2 

46 

44 

1 

49 

47 

55 

CRSI 

? 

? 

7 

CRS  — 

? 

? 

2 

SPACE 

6 

32 

60 

Tabelle  1.  Vergleich  der  Tastaturcodes 
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schreibt,  muß  man  hinter  jedem  POKE-Befehl  für  den  Bild¬ 
schirm  einen  entsprechenden  für  die  Farbe  anhängen,  also 
zum  Beispiel  hinter  POKE  1024,64  anfügen:  POKE  1024  4- 
54272, X  .wobei  X  eine  Zahl  zwischen  0  und  15  ist,  welche 
dann  die  Farbe  des  Zeichens  bestimmt.  Dieser  Befehl  kann 
weggelassen  werden,  wenn  ein  Zeichen  gelöscht  wird,  also  im 
Befehl  der  Bildschirmcode  32  (=  Leerzeichen)  eingesetzt 
wird.  Die  Farbcodes  haben  folgende  Bedeutung: 


0:schwarz 

8:orange 

1:weiß 

9:braun 

2:  rot 

10:hellrot 

3:türkis 

llrgrau  1 

4:violett 

12:grau2 

5:grün 

13:hellgrün 

6:blau 

14:hellblau 

7:gelb 

15:grau  3 

Umgekehrt  müssen  die  POKE-Befehle  für  den  Farbenspei¬ 
cher  bei  einer  Übertragung  auf  die  CBMs  gestrichen  werden. 
Sprites  und  hochauflösende  Grafik  können  nicht  auf  die  CBM- 
Serie  übertragen  werden. 


Tastatur  und  Joystick 


Viele  Programme  fragen  durch  PEEK  die  gerade  gedrückte 
Taste  ab.  Dazu  existiert  in  der  Zero-Page  eine  Speicherstelle, 
in  welcher  sich  die  Matrixkoordinate  der  gerade  gedrückten 
Taste  befindet.  Bei  den  CBMs  ist  dies  die  151,  beim  C  64  die 
203.  Die  Wirkungsweise  kann  man  sich  leicht  durch  folgendes 
kleines  Programm  verdeutlichen: 

10  PRINT  PEEK  (203) 

20  GOTO  10 

(Bei  den  CBMs  muß  die  203  in  Zeile  10  durch  151  ersetzt 
werden).  Nach  dem  Starten  durch  RUN  erscheint  eine  Reihe 
von  Zahlen,  beim  C  64  die  64,  bei  den  CBMs  die  255.  Drückt 
man  nun  irgendeine  Taste,  so  erscheint  eine  gerade  Zahl,  je 
nachdem,  welche  Taste  gerade  gedrückt  ist.  In  Tabelle  1  ist  ein 
Vergleich  der  Tastaturcodes  dargestellt. 

Es  gilt,  einige  besondere  Adressen  zu  beachten: 

CBM:  In  152  steht  1  (anstatt  0),  wenn  die  Taste  SHIFT  ge¬ 
drückt  ist. 

C  64:  Adresse  653: 

0:  wenn  nichts  gedrückt 
1:  SHIFT  gedrückt 
2:  Commodore-Taste  gedrückt 
4:  CTRL  gedrückt 

Dazu  noch  ein  Tip  für  eigene  Programme:  Meistens  benötigt 
man  für  ein  Spiel  eine  Unterscheidung  zwischen  verschiede¬ 
nen  Tastendrücken  (zum  Beispiel  bis  zu  neun  verschiedene 
Tasten  für  die  Richtungssteuerung  eines  Raumschiffes).  Am 

1  REM  KANONE 

5  ZA  =  1984:ZE  =  2023:OP  =  2004 
10  DIM  A%(255) 

20  A%(56)  =  — 1:A %(59)  =  1 

1000  REM  ABFRAGE  —  ZEICHEN  SETZEN,  SUBROU¬ 
TINE 

1010  NP  =  OP  +  A%(PEEK(203)):REM  NEUE  POSI¬ 
TION 

1020  IF  NP  >ZE  OR  NP<ZA  THEN  NP  =  OP:REM 
ZEILENBEGRENZUNG 

1030  POKE  OP,  32:REM  ALTE  POSITION  LÖSCHEN 
1040  POKE  NP,  30:REM  NEUE  POSITION  SETZEN 
1050  POKE  NP+ 54272,1  :REM  FARBE  SETZEN 
1060  OP  =  NP 
1070  RETURN 

Listing  1.  Ein  kleines  Beispielprogramm  für  den  C  64. 


schnellsten  funktioniert  die  Abfrage,  wenn  man  ein  Feld  mit 
256  (Ganzzahl-)Variablen  definiert  (zum  Beispiel  A%(255)), 
und  die  Richtung  als  Wert  des  entsprechenden  Indexes  darin 
speichert. 

Beispiel  (hier  für  C  64):  Wir  wollen  für  ein  Spielprogramm  ei¬ 
ne  Kanone  (1  haben,  die  man  am  unteren  Bildschirmrand  mit 
Taste  ’T  nach  links  und  mit  Taste  ”2”  nach  rechts  steuern 
kann.  In  unserem  Beispiel  würde  das  Programm  entsprechend 
Listing  1  aussehen. 

A%  (255)  ist  das  Variablenfeld.  Der  Tastaturcode  von  ”1”  ist 
beim  C  64  die  56,  von  ”2”  die  59.  Die  Tastaturadresse  ist  203. 
Variablen: 

OP  die  alte  Position  der  Kanone 
NP  die  neue  Position  der  Kanone 
ZE  Bildschirmadresse  am  Ende  der  Zeile,  in  der  sich  die 
Kanone  bewegt 

ZA  Bildschirmadresse  am  Zeilenanfang 
CBM-Besitzer  können  nach  Studium  des  Artikels  an  diesem 
Beispielprogramm  ihr  neugelerntes  Wissen  ausprobieren.  Die 
Lösung  steht  am  Ende  des  Artikels  (aber  nicht  vorher  nach¬ 
schauen!). 

Diese  Methode  ist  auch  bei  der  Verwendung  eines  Joysticks 
nützlich,  denn  dieser  muß  ähnlich  wie  die  Tastatur  mit  PEEK 
abgefragt  werden.  Seine  Adresse  ist  56321  (Port  1)  bezie¬ 
hungsweise  56320  (Port  2),  wobei  Port  1  weniger  geeignet 
ist,  da  der  Inhalt  seines  Speichers  auch  von  der  Tastatur  beein¬ 
flußt  wird.  Die  Codierung  ist  der  Tabelle  2  zu  entnehmen. 


Bewegung: 

Port  1: 

Port  2 

Feuer-Taste 

239 

111 

nach  oben 

254 

126 

nach  unten 

253 

125 

nach  rechts 

247 

119 

m-.i/  links 

251 

123 

nach  links  oben 

250 

122 

nach  rechts  unten 

245 

117 

nach  rechts  oben 

246 

118 

nach  links  unten 

249 

121 

keine  Taste  gedrückt 

255 

127 

Tabelle  2.  Die  Codierung  der  Joystick-Ports 


Die  CBMs  besitzen  keinen  Anschluß  für  Joysticks,  es  gibt  je¬ 
doch  diverse  Konstruktionen  zum  Anschluß  an  den  User-Port. 
Daher  empfiehlt  es  sich,  beim  Übertragen  von  C  64-Program- 
men  auf  die  CBMs  auf  den  Joystick  zu  verzichten  und  diese 
Programmteile  durch  Tastaturabfragen  zu  ersetzen. 


PRINT-Befehle 


Die  ASCII-Codes  sind  bei  allen  drei  Systemen  größtenteils 
identisch,  sie  unterscheiden  sich  praktisch  nur  in  den  Farb¬ 
steuerzeichen  und  der  Umschaltung  von  Grafik  auf 
Groß/Kleinschreibung.  Die  Umschaltung  auf  Groß/Klein¬ 
schreibung  erfolgt  bei  den  CBMs  durch  den  Befehl  ”POKE 
59468,14”  und  zurück  auf  die  Blockgrafik  durch  ”POKE 
59468,12”.  C  64-Besitzer  benutzen  hier  den  Befehl  "PRINT 
CHR$(14)”  (Kleinschreibung)  beziehungsweise  den  Befehl 
"PRINT  CHR$(142)”  (Grafik).  Beim  Übertragen  von  Program¬ 
men  auf  den  C  64  kann  man  nach  Belieben  Farbstcuerzeichen 
einfügen,  umgekehrt  sind  diese  zu  löschen. 


Der  Ton 


Wichtig  für  das  Übertragen  von  Programmen  mit  Ton  ist  vor 
allem  die  Tonhöhe  und  ihre  Adresse.  Beim  C  64  stehen  drei 
Tongeneratoren  zur  Verfügung.  Ihre  Tonhöhe  wird  dabei  durch 
je  zwei  Adressen  bestimmt,  wobei  die  erste  Adresse  (das  Low- 
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Byte)  die  Tonhöhe  nur  sehr  wenig,  die  zweite  Adresse  (das 
High-Byte)  die  Tonhöhe  hingegen  wesentlich  stärker  (nämlich 
genau  255  mal  so  stark  wie  das  Low-Byte)  beeinflußt.  In  der 
Tabelle  3  sind  die  wichtigsten  Tonadressen  des  Commodore 
64  zusammengefaßt. 

(Adresse  =  54272  +  Register) 

Bei  den  CBMs  steht  jedoch  nur  ein  Tongenerator  zur  Verfü¬ 
gung,  auch  können  dort  weder  Wellenform,  noch  Lautstärke, 
noch  Hüllenkurve  programmiert  werden.  Daher  ist  es  bei  der 
Übertragung  von  C  64-Programmen  auf  die  CBMs  bei  komple¬ 


REGISTER 

INHALT 

Stimme  2 

2 

3 

0 

7 

14 

Frequenz  Low-Byte  (0-255) 

1 

8 

15 

Frequenz  High-Byte  (0-255) 

2 

9 

16 

Tastverhältnis  Low-Byte  (0-255) 

bei  Rechteck 

3 

10 

17 

Tastverhältnis  High-Byte  (0-15) 

4 

11 

18 

Wellenform: 

Rauschen  =  129 

Rechteck  =  65 

Sägezahn  =  33 

Dreieck  =  1 7 

5 

12 

19 

Anschlag 

-1-  Abschwellen 

0  (hart)  - 

0  (hart)  - 

15’ 16  (weich) 

15  (weich) 

6 

13 

20 

Halten 

4-  Ausklingen 

0  (stumm)— 

0  (schnell)— 

15’ 16  (laut) 

15  (langsam) 

24 

24 

24 

Lautstärke:  0  (stumm)  —  15  (volle  Laut- 

stärke) 

S4€R  Df 

Tabelle  3.  Die  wichtigsten  Tonadressen  von  C  64. 

Doppelfloppy  4040 

(die  neuen  4er  Befehle  stehen  in  Klam¬ 
mern) 

Diskette  neu  formatieren: 

Monofloppy  1541 

OPEN  1,8,1 5,”N0:Name, XX” 
(HEADER”Name,”,IXX 

1  =  Laufwerksnummer) 

Inhaltsverzeichnis  lesen: 

OPEN  1,8,15,"N:Name,XX” 

LOAD”$1”,8  bzw.  LOAD”$”,8 
(DIRECTORY) 

LOAD”$”,8 

Beliebiges  Programm.,  laden: 

LOAD”Name”,8 
bzw.  LOAD”Name1”8 
(DLOAD"Name”  bzw. 

DLOAD”Name”D1) 

Beliebiges  Proqramm  sichern: 

LOAD”Name”,8 

SAVE”Name”,8  bzw. 

SAVE"Name1”,8 
(DSAVE”Name”  bzw. 

DSAVE”Name",D1) 

Datei  löschen: 

SAVE"Name",8 

OPEN  1,8,15,”S0:Name” 
bzw.  OPEN  1,8,15,”S1:Name” 
(SCRATCH”Name”,DO  bzw. 
SCRATCH:’Name”,D1 ) 

Datei  umbenennen: 

OPEN  1,8,15,”S:Name” 

OPEN  15,8,15: 

OPEN  15,8,15: 

PRINT15,”R0:Neu=0:Alt” 

bzw. 

OPEN  1 5,8,1 5:PRINT1 5,”R1  :Neu = 1  :Alt” 
(RENAME  Dl,  ”Alt”TO”Neu"  bzw. 
RENAME  DO,”Alt”TO’’Neu”) 

Tabelle  4.  Vergleich  der  Befehle 
für  die  Laufwerke  4040  und  1541 

PRINT15,”R:Neu=Alt” 

xen  Klängen  und  Geräuschen  meist  am  einfachsten,  den  Ton 
selbst  neu  zu  gestalten.  Wenn  man  den  Ton  beim  Übertragen 
auf  den  C  64  direkt  übernehmen  will,  ist  das  Umschreiben 
nicht  schwierig.  Bei  den  CBMs  gibt  es  drei  Tonadressen,  wel¬ 
che  wie  üblich  durch  PEEK  und  POKE  angesprochen  werden: 
59464,  59466  und  59467.  Der  Tongenerator  wird  dort  ein¬ 
geschaltet  durch  POKE  59466, 16:POKE  59467,20:  POKE 
59464,0.  Nun  kann  man  die  Tonhöhe  einfach  festsetzen,  in¬ 
dem  man  eine  Zahl  zwischen  0  und  255  in  die  Adresse  59646 
schreibt  (durch  POKE  59464, X,  wobei  X  eine  Zahl  zwischen 
0  und  255  ist).  Dabei  ist  255  ein  relativ  tiefer  Ton  und  0  ein 
sehr  hoher  Ton  (Ultraschall,  daher  unhörbar  und  mit  »Ton  aus¬ 
geschaltet«  zu  vergleichen).  Die  Tonhöhe  kann  man  für  den 
C  64  als  High-Byte  übernehmen,  jedoch  bedeutet  dort  0  ei¬ 
nen  sehr  tiefen  Ton  und  255  einen  sehr  hohen,  also  genau  um¬ 
gekehrt.  Daher  muß  man  wie  folgt  Vorgehen.  Wenn  im  CBM- 
Programm  steht:  POKE  TA,  TH,  wobei  TA  die  Adresse  der  Ton¬ 
höhe  59464  und  TH  die  Tonhöhe  ist,  muß  es  nun  im  C  64- 


CBM 

C  64 

Bedeutung 

Hex 

Dezimal 

Hex 

Dezimal 

0028-0029 

40-41 

002B-002C 

43-44 

Zeiger  auf  Basic- 
Anfang 

002A-002B 

42-43 

002D-002E 

45-46 

Zeiger  auf  Varia¬ 
blen  Anfang 

002C-002D 

44-45 

S.u. 

Zeiger  auf  Ende 
der  Variablenta¬ 
belle 

S.O. 

002F-0030 

47-48 

Zeiger  auf  Beginn 
der  Felder 

002E-002F 

46-47 

0031-0032 

49-50 

Zeiger  auf  Ende 
der  Felder 

0030-0031 

48-49 

0033-0034 

51-52 

Zeiger  auf  Beginn 
der  Strings  (rück¬ 
wärts) 

0032-0033 

50-51 

0037-0038 

55-56 

Zeiger  auf  Ende 
der  Strings  (= 
Speichergrenze) 

0036-0037 

54-55 

0039-003A 

57-58 

laufende  Zeilen¬ 
nummer 

0038-0039 

56-57 

003B-003C 

59-60 

vorhergehende 

Zeilennummer 

003A-0038 

58-59 

003D-003E 

61-62 

nächster  Befehl 
(für  CONT) 

003C-003D 

60-61 

003F-0040 

63-64 

aktuelle  DATA- 
Zeile 

003E-003F 

62-63 

0041-0042 

65-66 

aktuelles  DATA- 

Element 

(Adresse) 

0042-0043 

66-67 

0045-0046 

69-70 

aktueller  Varia¬ 
blenname 

0044-0045 

68-69 

0047-0048 

71-72 

Zeiger  auf  aktuel¬ 
le  Variable 

0046-0047 

70-71 

0049-004A 

73-74 

Variablenzeiger 
für  FOR...NEXT 

0070-0087 

112-135 

0073-008A 

115-138 

diese  Routine  holt 
nächstes  Basic- 
Zeichen 

0088-008C 

136-140 

008B-008F 

139-143 

Zufallszahl 

008D-008F 

141-143 

OOAO-OOA2 

160-162 

interne  Uhr 

0097 

151 

OOCB 

203 

gedrückte  Taste 

00A7 

167 

OOCC 

204 

Cursor  an/aus 
(0=an,1=aus) 

00C6 

198 

OOCA 

202 

Spaltenposition 
des  Eingabecur¬ 
sors 

OOD8 

216 

OOC9 

201 

Zeilenposition  des 
Eingabecursors 

OOFD-OOFF 

253-255 

00FB-00FE 

251-254 

freier  Platz  für 
Zeiger  in  Page  0 

026F-0278 

623-632 

0277-0280 

631-640 

Tastaturpuffer 

Tabelle  5.  Die  wichtigsten  Zero-Page-Adressen 
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Programm  heißen:  POKE  FH,  255  — TH.  Es  kommt  aber  dazu, 
daß  der  Tonumfang  des  C  64  etwas  kleiner  ist  als  der  der 
CBMs.  Daher  empfiehlt  es  sich,  den  Wert  für  die  Tonhöhe  mit 
2  oder  3  zu  multiplizieren,  wobei  darauf  zu  achten  ist,  daß  der 
Bereich  von  0  bis  255  nicht  überschritten  wird.  Der  Befehl 
muß  also  lauten:  POKE  FH,  255  —  2  *  TH. 


Diskettenbefehle 


Die  komfortablen  Diskettenbefehle  des  CBM  40  XX  können 
nicht  übernommen  werden,  jedoch  kann  man  die  überall  mög¬ 
lichen  Kommando-String-Befehle  verwenden.  Allerdings  muß 
dafür  für  die  Monofloppy  1541  (beziehungsweise  1540)  die 
Laufwerksnummer  gestrichen  werden.  Tabelle  4  stellt  eine 
Vergleichsliste  der  beiden  Laufwerke  dar. 

Zum  Schluß  noch  einige  wichtige  Zero- Page-Adressen  zum 
Vergleich  in  Tabelle  5  (aus  urheberrechtlichen  Gründen  dürfen 
die  vollständigen  Listen  leider  nicht  abgedruckt  werden). 
Lösung  des  Beispielprogramms  »Kanone«  für  CBM: 

1  REM  KANONE 

5  ZA  =  33728:ZE  =  33767.0P  =  33748 
10  DIM  A%(255) 

20  A%(26)  =  — 1:A %(18)  =  1:REM  (Für  CBM  30XX) 
oder 

20  A%(49)  =  1:A%(50)  =  1.REM  (Für  CBM  40XX) 

1000  REM  Abfrage  und  Zeichen  setzen,  Subroutine 
1010  NP  =  OP  +  A%(PEEK(151)):REM  neue  Position 
1020  IF  NP  >ZE  OR  NP<  ZA  THEN  NP  =  OP:  REM  Zei¬ 
lenbegrenzung 

1030  POKE  OP,  32:REM  alte  Position  löschen 
1040  POKE  NP,30:REM  neue  Position  setzen 
1050: 

1060  OP  =  NP 
1070  RETURN 

Und  nun  viel  Erfolg  beim  Umschreiben! 

(M.  und  J.  Heinz/rg) 
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MERGE  für  C  64  /  VC  20 


Hier  ist  eine  einfache  MERGE-Routine  zum  Verbinden  zwei¬ 
er  Basic-Programme.  Sie  kann  sowohl  für  die  Floppy  als  auch 
für  die  Datasette  (auch  mitTurbo-Tape)  verwendet  werden.  Ein¬ 
zige  Voraussetzung:  Das  zweite  Programm  muß  höhere  Zei¬ 
lennummern  haben  als  das  erste. 

Und  so  wird’s  gemacht: 

1.  Sie  laden  das  erste  Programm.  Dann  geben  Sie  im  Direkt¬ 
modus  ein:  PRINT  PEEK(43),  PEEK(44)  Diese  beide  Zahlen 
schreiben  Sie  sich  auf. 

2.  Sie  geben  ein:  POKE  43,  (PEEK(45)  +  256  *  PEEK(46) 
-  2)  AND  255  (Return)  POKE  44,  (PEEK(45)  +  256  * 
PEEK(46)  -  2)  /  256  (Return) 

Laden  Sie  nun  das  zweite  Programm.  Danach  geben  Sie  ein: 
POKE  43,  (erste  Zahl) :  POKE  44,  (zweite  Zahl)  (Return)  Nun 
befinden  sich  beide  Programme  hintereinander  im  Speicher. 

(Michael  Keukert) 


Funktionstastenbelegung 


Simons  Basic  bietet  ja  bekanntlich  die  Möglichkeit,  die  Funk¬ 
tionstasten  mit  beliebigen  Zeichenketten  zu  belegen.  Um  nun 
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die  Funktionstasten  nicht  jedesmal  nach  dem  Einschalten  neu 
belegen  zu  müssen,  wäre  es  sinnvoll,  die  Belegung  auf  Floppy 
abspeichern  zu  können. 

Die  Funktionstastenbelegung  ist  bei  Simons  Basic  in  dem 
von  Basic  nicht  erreichbaren  Speicherbereich  SC64D  bis 
$C74B  (50765  bis  51019  dezimal)  abgelegt.  Mit  dem  folgen¬ 
den  kleinen  Programm  wird  dieser  Speicherbereich  als  Ma¬ 
schinenprogramm  abgespeichert: 

10  INPUT  »Filename»;  X$ 

20  OPEN  5,  8,  5,  X$  +  »,P,W« 

30  A  =  50765:  E  =  51019 

40  H  =  INT(A  /  256)  :  L  =  A  AND  255 

50  PRINT# 5,  CHR$(L);  CHR$(H); 

60  FOR  I  =  A  TO  E 
70  PRINT# 5,  CHR$(PEEK(I)); 

80  NEXT I :  CLOSE  5 

Mit  LOAD  "Name", 8,1  kann  die  Funktionstastenbelegung  nun 
jederzeit  geladen  werden,  ohne  ein  eventuell  vorhandenes  Ba- 
sicprogramm  zu  zerstören.  (Uwe  Schwarz) 


Hilfe  für  »Turbo  Tape« 


Das  Programm  »Turbo  Tape«  ist  ja  ein  Segen  für  alle  diejeni¬ 
gen,  die  sich  keine  Floppy  leisten  können  oder  wollen.  Es  gibt 
allerdings  einige  Maschinenprogramme,  die  nach  dem  Ge¬ 
brauch  von  »Turbo  Tape«  abstürzen. 

Abhilfe:  Nach  dem  Laden  das  Programm  LISTen  und  den 
SYS-Befehl  zu  Anfang  notieren.  Nun  SYS  64738  und  danach 
den  notierten  SYS-Befehl  eingeben  —  und  schon  läuft  das  Pro¬ 
gramm.  (Andreas  Klofanda) 


Basicprogramme  retten 


Ein  durch  NEW  oder  durch  einen  RESET  gelöschtes  Basic- 
programm  kann  durch  Eingabe  folgender  Zeilen  im  Direktmo¬ 
dus  wieder  zurückgeholt  werden: 

POKE  46,  PEEK(56)  -  1  :  POKE  45,  PEEK(55)  +  247  :  CLR 
(Return) 

POKE  PEEK(44)  *  256  +  PEEK(43)  +  1,  PEEK(44)  (Return) 
63999  (Return) 

FOR  I  =  PEEK(44)  *  256  +  PEEK(43)  TO  PEEK(46)  *  256 
+  PEEK(45)  :  IF  PEEK(I)  OR  PEEK(I  +  1)  OR  PEEK(i  +  2) 
THEN  NEXT  (Return) 

POKE  45,  (I  +  3)  AND  255  :  POKE  46,  (I  +  3)  /  256  :  CLR 
(Return) 

Diese  »Rettungsmaßnahme«  funktioniert  sowohl  beim  VC 
20  wie  auch  beim  C  64.  (Ralf  Berle) 


Cursor  steuern 


Das  Betriebssystem  des  C  64  enthält  eine  Routine,  die  man 
benutzen  kann,  um  den  Cursor  an  eine  beliebige  Stelle  zu  set¬ 
zen.  Geben  Sie  doch  mal  folgendes  ein: 

POKE  214,  (Zeile) :  POKE  211,  (Spalte) :  SYS  58640  :  PRINT 
'TEXT'  (Michael  Keukert) 


Und  noch  ein  Tip 


Der  FORMULAR  TOO  COMPLEX  -  Error  ist  sehr  unange¬ 
nehm,  da  sich  das  Programm  danach  oft  nicht  mehr  listen  läßt. 
Nach  Eingabe  von  POKE  24,0  verhält  sich  der  Computer  aber 
wieder  normal.  (Roger  Limberg) 
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LISTING  DES  MONATS 


Listing  des 
Monats:  Castle 
of  Doom 

Programm  zu  der  Beschreibung  von 
Seite  66 

Erklärung  der  Programmzeilen  für  Castle  of  Doom: 


Zur  Erläuterung  des  Programms  sind  hier  die  verschiede¬ 
nen  Abschnitte  des  Programms  aufgeführt: 

1  Sprung  zur  Befehlsausführung 

5—95  DATAs  einiesen,  Erklärung? 

100—160  Version  auswählen 

1 65 — 1 7 6  Zauberwörter  bestimmen 

179—740  Bilder  zeichnen 

748—860  Kommando  auswerten 

870—940  Bewegen 

950—980  Sprung  zur  Befehlsausführung  berechnen 

und  ausführen 


999-5382 

6500—6528 

7000—7065 

7100-7125 

7200— 7415 

7 500-7560 

7600-7720 

7800-7880 

8000-8110 


Befehlsausführung 
Befehl  »sage« 

Besitz  +  Gegenstände  anzeigen 
Befehl  »nimm« 

Befehl  »wirf« 

Erklärung 

verloren 

gewonnen 

DATAs 


Da  die  Kommändoauswertung  recht  ungewöhnlich  aus¬ 
geführt  wird,  folgt  hier  noch  eine  Beschreibung  der  betref¬ 
fenden  Programmzeilen: 

755  Kommandoeingabe 

7 60—785  Zerlegen  in  Verb/Hauptwort 

795—810  Vergleich  mit  der  Liste  aller  bekannten 

Wörter 


Zuordnung:  X  =  Nummer  des  Verbs 
(1-14) 

Y  =  Nummer  des  Haupt¬ 
worts  (1—21) 

830 — 845  Untersuchen,  ob  eine  sinnvolle  Kombina¬ 

tion  von  Verb  und  Hauptwort  vorliegt 
960—980  Aus  X  und  Y  wird  die  Zeilennummer  be¬ 
rechnet,  in  der  die  Antwort  auf  das  einge¬ 
gebene  Kommando  steht.  Die  berechnete 
Zeilennummer  wird  in  ihre  Ziffern  zerlegt, 
und  diese  werden  in  den  Programmspei¬ 
cher  hinter  das  GOTO  in  Zeile  1  gePO- 
KEd.  Anschließend  wird  ein  GOTO  1  aus¬ 


geführt. 


Variablen-Definition  zum  Listing  des  Monats: 


Zum  Abschluß  hier  noch  die 
wichtigsten  Variablen: 

V$(1...14)  Liste  Verben 

H$(1...21)  Liste  Hauptwörter 
Rl$(1...19)  mögliche  Richtun¬ 
gen 

Zl$(1...19)  Nachbarfelder 
G$(1...12)  Liste  Gegenstände 
G(1...12)  Ort  der  Gegenstände 
P  Position 

V  Version 

Z1$,Z2$  Zauberwörter 


ZA  =  0,1,2Zauberwort  gesagt? 
K$  Kommando 

V$  Verb 

H$  Hauptwort 

KB$(1...9)  mögliche  Kombina¬ 
tionen 

MO  =  1  Monster  besiegt 

GE  =  1  Geist  besiegt 

MR  =  1  Monster  anwesend 

GS  =  1  Geist  anwesend 

ZB  =  1  Zauberer  anwesend 

GG  Anzahl  Gegenstände 


0  G0T05 

1  GOTO ! ! ! ! 

2  REM 

3  REM  ZEILEN  O  UND  1  NICHT  AENDERN  HM 

4  REM 

5  DIMV*(14> ,H* (21) ,RI*(19) ,ZI*(19) ,G*(12 
) , G ( 12) 

6  L$=H[S 

7  CL*="|  |“ 

8  EF$=" 


1 0  P0KE532B0 ,14: PQKE5328 1,14: P0KE53272 , 2 
3: P-15: QQ=54272 : V I =53248 
15  POKEVI+21 ,0:PRINT"L,,SPC  (12) 

-♦»I  L“  F-  -TTV* :  REM  CASTLE  OF  DOOM 

20  PR INT “«KM  ~ IN  *DVENTURE  VON  | . OEIS 

SBECKER" 

25  PRINTSPC (11) "HS*  | ITTE  WARTEN  *" 

30  FOR  1  =  1  TO  14:  READV*  ( I ) 

35  I F I < 1 OTHENREADKB* ( I ) 

40  NEXT 

45  F0RI=1T021 : READH* ( I ) : NEXT 
50  F0RI=1T019:READRI*(I) ,ZI*(I> : NEXT 
55  F0RI=1T012:G* (I)=H*(I) : READG < I )  :  NEXT 
60  FORI=1T04: READZX* ( I ) ,ZY*(I) : NEXT 
65  F0RI=13T015 

70  FURJ=0T062:  READK: PÜKE64*1+J ,K: NEXT: NE 
XT 

85  PRINT-D  \OECHTEN  91 E  EINE  -RKLAERUNG 

?  (  l-//)  " 

90  GETA*: IFA*=" J"THEN7500 
95  I F A*<  > " N " THEN90 

lgO  PRINT"L*"SPC(10)  "B3-*9!  L_  P-  — fT\" 

}Oo  PRINT"EE6k  I  EI  DIESEM  9DVENTURE  KOENN 
EN  9IE  ZWI-" 

HO  PRINT"®  SCHEN  DREI  VERSIONEN  WAEHLEN 
:  ,,:PRINT,,H  DOLLEN  9IE  :  " 

115  PRINT"®  1  -  “INE  VERZAUBERTE  ^RINZE 
SS  I N  "  :  PR  I NTSPC  ( 6 )  "  JETTEN  " 

120  PR INT" ®  2  -  “INEN  BOESEN  ZAUBERER  B 

ESI EGEN“ 

125  PR  INT  "KJ  3  -  “INEN  9CHATZ  SUCHEN" 

130  PRINT "®®  | ITTE  GEBEN  9IE  DIEENTSPRE 
L'HENDE" 

135  PR  INT  "SS  -’ENNZ  IFFER  EIN." 

140  PQKE 1 98 , O : WA I T 1 98 , 1 

145  GETI*: IFASC ( 1$) <490RASC ( 1$) >51THEN14 

0 

150  V=VAL  ( I*)  :  IFV<  >2THEN160 

155  RI$(13)="W— ZI* ( 13) =" 1214" : RI*  (9)  = 

"W-O-R" :  ZI* (9) ="081018" 

157  RI* (8) =”N— S— O" : ZI* (8) ="051209" 

160  IFV=1THENG (7) =1 

165  F0RI  =  1T04: J ( I ) =1+4*RND (TI )  :  NEXT 
170  Z1*=ZX*(J (1) )+ZY*(J (2) ) 

175  Z2*=ZX*(J (3) >+ZY*(J (4) ) 

176  IFZ 1*=Z2*THEN165 

177  TI *="000000" 

179  REM  *-**-*  BILDER  ZEICHNEN  *#** 

180  PRINT"LJI";  :  P0KE53272,21 :  P0KEVI+21 ,0: 
POKEV I +23 , 0 : POKEV I +29 , 0 

185  F0RI=1T020: PRINTSPC (8) CL*: NEXT 

tVÖ  FÜKl=TH24Töiö63: POKEI ,99: PükEI+Qü , O: 

NEXT 

195  IFP>1 1THEN415 

197  PQKE53280 ,5: P0KE5328 1,5 

200  PRINT"0" ; : F0RI=1TD4: PRINTSPC (8+1 ) "\M 
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SPC (22-2*1 ) "/" : NEXT 

205  PRINTSPC  ( 13)  "□ _ " 

210  F0RI=1T010:  PRINTSPC  ( 12)  "  |"SPC(14)"|  " 
:  NEXT 

215  PRINTSPC  ( 13)  - □" 

220  FÜR  1  =  1  TD5 :  PR  I NTSPC  ( 1 3- 1 )  "  /"  SPC  (12+2* 
I ) "\" : NEXT 

225  FORI=lTOLEN(RIS(P) ) STEP2: A$=MID$ (RI# 
(P) ,1,1) 

230  I F A*= " N " THEN250 
235  IFA*="W"THEN260 
240  I  FA*=  "  0  "  THEN265 
245  NEXT : GQT0270 

250  F0RJ=1402T01562STEP40:FC1RK=0T03:P0KE 

J+K, 160: POKEJ+K+QQ,0: NEXT: NEXT 

255  POKE 1 402 , 254 : POKE 1 405 , 252 : G0T0245 

260  F0RJ=1552T0L752STEP40: POKEJ , 160: POKE 

QQ+J , 0 : NEXT : POKE 1 752 ,105: G0T0245 

265  FORJ= 1 575T0 1 775STEP40 : POKEJ ,160: POKE 

□Q+J ,0: NEXT: POKE 1775 , 95: G0T0245 

270  0NPG0T0275 , 740 , 300 ,315, 740 , 325 , 345 , 7 

40,355,375,395 

275  QNVG0T0740 , 280 , 285 

280  P0KE2040 ,15: POKEV I +39 , O : POKEV I , 1 50 : P 
OKEV 1+1,140: POKEV 1+29,1: POKEV I +23 , 1 
282  POKEVI+21 , 1 : ZB=1 : GQT0740 

285  PRINT"SI^gBä®SSE^S"SPC(13)  " _ ":PRIN 

TSPC  (12)  "/  A" 

290  PRINTSPC (11 ) "/  /  |  ": PRINTSPC ( 11 ) 'T 

|  "  :  PRINTSPC  ( 1 1 )  "|  **  |  /** 

295  PRINTSPC  (1 1 )  "I _ [/  SCHATZ  FORI  =  1T02 

000: NEXT: G0T07830 

300  I FLEFT *(RI*(3) , 1 ) =”N"THEN740 

305  FOR J  =  1 402T0 1 562STEP40 : FQRK=0T03 

310  POKE J+K, 160: POKEJ+K+QQ , 06: NEXT: NEXT: 

PRINTSPC  ( 16)  " dXQiSP I EGEL "  :  G0T0740 

315  PR I NT " SPC (13) " ■F" : PRINTSPC 

(14)  WF"  s  PRINTSPC  (15)  "|  |" 

320  FQRI  =  1T010:  PRINTSPC  (15)  "f — V* :  NEXT:  GOT 
0740 

325  PRINT"aRE^a^fiE^E"SPC  ( 13)  " _ _"  :  PR 

I  NTSPC  (13)  "| _ ]" 

330  PR I NTSPC (12)"/  A  " : PR I NTSPC ( 1 1 ) " / 

/A  "  :  PR  I  NTSPC  (10)"/  /./” " 

335  PRINTSPC  (9)  "[ - l//"  :  PRINTSPC  (9)  "| 

V"  :  PR  I  NTSPC  ( 9 )  '*  | _ |  SCHLAF  Z I MMER  " 

340  G0T0740 

345  IFGE=1THEN740 

350  PQKE2040 ,13: POKEV I +39 , 1 : POKEV I , 1 50 :  P 
OKEV 1+1,150: POKEV I +23 , 1 : POKEV I +29 , 1 

351  POKEVI+21 ,1: IFG ( 12) < >0THENF0RI=1T020 
00: NEXT : G0T07630 

352  GS=1 : GOT0740 

355  PR I NT "  aifiS" SPC (11)" BURGHOF  /  BRÜNNEN " 

:  PRINTSPC  ( 13) 

360  PR  T  NTSPC  (17)»  -  "  •  PR  T  NTS 

PC(16)"Üä 

365  PRINTSPC  (  16)  "| . .  |"  :  PRINTSPC  ( 16)  " 

I  |"  :  PRINTSPC  ( 16)  " — - — - 

370  G0TQ740 

375  P0KE214, 14: PRINT 

380  IFFA=1THENPRINTSPC(23) 1":PRIN 

TSPC (24) "^a  T'  :  G0T0740 

385  PR I NTSPC ( 23 ) " _ " : PR I NTSPC ( 23 ) " \ 


390  PRINTSPC (16) "QUADRAT  \  \": PRINTSPC 

(25)  - - -  :  G0T0740 


3V5  PK  INH 


rSRC  (  23) 


PK  IN  I 


SPC  ( 22 )  "  |\  \"  :  PR  I  NTSPC  ( 22 )  "  |  (“! — I" 

400  PRINTSPC  (15)  "LJ  |  |  |.  |":  PRINTSPC 


(15)  "1 — |  Ml  |" 

405  PRINTSPC  (14)  "IST  ^1 - \l  L  I":  PRINT 

SPC(13)"iar  1" 

410  PR I NTSPC (21)" SCHRANK " : G0T0740 

415  I FP  > 1 4THEN445 

417  P0KE53280 ,8: P0KE53281 , 8 

420  PRINT"0"  ;  : FOR I  =  1T06: PRINTSPC (8) "H"L* 

:  NEXT 

425  FOR I =55504T0555 1 4STEP2 : POKE I , 7 : NEXT : 

FORI =555 17T055527STEP2: POKEI ,7: NEXT 

430  F0RI=1T01 1 : PRINT "H"SPC (8) L*: NEXT: FOR 

I=1T03: PR I NT "R" SPC (8) L*: NEXT 

435  I FLEFT $ ( R I $ ( P ) , 1 ) < >"N"THEN740 

440  PQKE214 , 11: PRINT"!" : F0RI=1T05: PRINTS 

PC(lB)"ia  ":NEXT 

442  G0T0740 


445  POKE53280, 14:P0KE53281 , 14: 0NP-14G0T0 
555 , 450 , 485 , 500 , 540 

450  PRINT"gEraää3äfi,,SPC(20)  "  PRINTSPC  ( 1 

8)  "IS 


460  PRINTSPC ( 17) "R  ja  /  ■" s PRINTSPC ( 16) "ffl 

V  /  ■" 

465  PRINTSPC ( 15) "  ja  <  ■":  PRINTSPC ( 1 


4)"JJ?  \  ■" 

470  PRINTSPC  ( 13)  "W  \ 

475  F0RI=1T07: PRINTSPC (8) LS: NEXT 
480  PRINTSPC (9) 


481  IFLEN  (RI*  ( 16)  )  =5THENPRI NTSPC  (9)  "mST 
EILER  WEG  NACH  OBEN" 


482  G0T0740 

485  PR I NT "H" SPC  (9)  " BSPiRKETE I LER  BERGHANG, 
" : PRINTSPC (9) "EHOEHLE" 

490  PT  NTSPC  (21 )  PRINTSPC  (19)  "  ja 


495  F0RI  =  1T06:  PRINTSPC  ( 19)  "ia  "  :  NEX 

T : G0T0740 

500  PRINT"Ö" ; : F0RI=1T0 19: PRINTSPC (8) L*: N 
EXT 

505  PR I NT "ä" SPC  (9)  "laHIM  BRUNNEN  ..." 

510  IFVO3THEN740 

515  IFM0=1THENPRINT,,E,,:G0T0530 

520  P0KE2040 ,14: POKEV I +39 , 13: POKEVI , 200: 

POKEV 1+1,150: POKEV I +23 , 1 : POKEV I +29 , 1 

525  PRINTSPC  (9)  "I^IONSTER"  :  POKEVI+21 , 1 :  M 

R=1 

530  PRINTSPC  (9)  "ISKTUERfig^^"  :  F0RI  =  1T07:  P 
RINTSPC (16) "  " : NEXT 

535  IFRI* ( 18) ="H"THENP0KE1601 ,114 
537  G0T0740 

540  PRINT"g" ; : F0RI=1T020: PRINTSPC (8) L*: N 
EXT 

545  PRINT"S"SPC (9) "ÜSIN  DER  HOEHLE  ..." 
550  PRINTSPC (9) "[^STOCKDUNKEL  HIER  . . . "  : 
G0T0740 

555  PR I NT SPC  ( 13)  "! - |":PRI 

NTSPC  (13)"|  BASAR  |" 

560  PRINTSPC  ( 13)  "| _ ]" 

565  IFXX=1THEN655 

570  PR I NTSPC (9 ) " ■££ I N  BEFREUNDETER " 

575  PRINTSPC (9) "EH AENDLER  IST  BEREIT," :P 
RINTSPC (9) "EIHNEN  ZWEI  DER  FOLGEN-" 

580  PRINTSPC (9) "EDEN  GEGENSTAENDE  ZU": PR 
I  NTSPC  ( 9 )  "  SäUEBERLASSEN  :  " 

585  PRINTSPC (9) "fflail  GLASKUGEL  1321  KAEFI 
G" 

590  PRINTSPC (9) "ffl23i  AMULETT  134«  BUCH" 
595  PRINT "MBSEgBO  BITTE  ENTSPRECHENDE  NUMM 
ERN  EINGEBEN" 

Listing  des  Monats:  Castle  of  Doom  (Fortsetzung) 


Ausgabe  8/ August  1984 


P0f.ine.de 

i4er-onlme.net 


600  BET 1$: IFIS=" " THEN600 

605  I F ASC ( I S  X  49ÖR ASC7  TW ) >52THEN60Ö 

610  ONVAL ( I $ ) G0SUB635 , 640 , 645 , 650 

615  GETJS: IFJS=" "QRJS=ISTHEN615 

620  IFASC ( JS) <490RASC ( JS) >52THEN615 

625  ONVAL ( JS ) G0SUB635 , 640 , 645 , 650 

630  XX=1 : GG=GG+2: G0SUB7000: GOT0655 

635  PQKE1633,49: G ( 1 ) =0: RETURN 

640  POKE1645,50:G (2) =0: RETURN 

645  P0KE1713,51:G (3) =0: RETURN 

650  POKE1725,52:G (4) =0: RETURN 

655  YY=0 : FOR I = 1 T04 : I FG ( I ) =OTHENYY=YY+ 1 

657  NEXT:  IFYYO2THEN710 

660  PRINTl,aKSäääS"SPC  (9)  "WOLLEN  SIE  DIE 
GEGEN-" 

665  PRINTSPC (9) "®STAENDE,  DIE  SIE  HIER": 
PRINTSPC (9) "VERHALTEN  HABEN,  NOCH  " 

670  PRINTSPC (9) "KEINMAL  UMTAUSCHEN  ?" : PR 
INTSPC  C9)  "tä  (J/N)" 

675  PR I NT : PR I NTSPC ( 8 ) CLS : PR I NT : PR I NTSPC ( 

B)CLS:G0SUB860 

680  GET I $ : I F I S= " N " THEN7 1 0 

685  I F I S<  > " J " THEN680 

690  F0RI=1T04: G ( I ) =20: NEXT: GG=GG-2 

695  PRINT"3ääEB3"  :  F0RI  =  1T09:  PRINTSPC  (8)  CL 

S: NEXT 

700  PRINT"£Bä&gää"SPC<12>  "WAEHLEN  SIE  !  " : 

pRim-mmem- 

705  B0T0585 

710  PRINT"SRK»»^"  :  F0RI  =  1T09:  PRINTSPC  (8)  C 
LS: NEXT 

715  PR I NT " ERBET  : FOR I  =  1 T05 : PR I NTSPC ( 13 ) "I 
"SPC(ll)  "  :  NEXT 

720  PR  I  NTSPC  (13)"  kl - 1"  :  PR  I NTSP 

c  <  13)  "i  m  rn  m  r 

725  PRINTSPC  (13)  "|  I  BS«k  I  I  6S*k  I  I  B«k  I  I" 

730  PRINTSPC  ( 13)  "|  | |  | |  | |  sPRINTSPC 

(13)  "1  l" 

740  P0KE214, 18: PRINT: PRINTSPC (9) "1RICHTU 
NGEN  :  3" R I S ( P ) : G0T0750 

748  REM  ****  KOMMANDOAUSWERTUNG  **** 

749  F0RI  =  1T02500:  NEXT 

750  ZA=0: G0SUB7000 

755  G0SUB860:  INPUT "ß  KOMMANDO  :  ”  ;  KS 
760  I FLEFT S  (  KS ,  1 )  =  "  "THENKS=RIGHTS  (KS ,  LE 
N(KS)-l) : G0T0760 
765  I FLEN ( KS ) = 1 THEN870 

770  F0RI=1T0LEN(KS) : IFMIDS (KS, I , 1)="  "TH 

EN780 

772  NEXT 

775  G0SUB860: PRINT"  UNKORREKTE 

E I NGABE  ! " : G0T0749 

780  VS =LEFTS ( KS , I - 1 )  : HS=R I GHTS < KS , LEN ( KS 
)-I) 

785  I FLEFT S ( HS , 1 ) = "  "THENHS=RIGHTS (HS , LE 

N (HS) — 1 ) : GOT0785 

790  I FVS= " SAGE " THEN6500 

795  F0RI=1T014: IFLEFTS (VS ( I ) , LEN (VS) ) =VS 

THENX=I : GQT0805 

800  NEXT : NVS=VS: G0T0815 

805  FORI=1T021: IFLEFTS (HS ( I ) , LEN (HS) ) =HS 
THENY=I : G0T0825 
810  NEXT : NVS=HS 

815  G0SUB860: PRINT"D  TUT  MIR  LEID,  ABER 
ICH  VERSTEHE" 

820  PRINT"®  ' "NVS" '  NICHT. ": G0T0749 
825  I FX  >9THENX=X— 5 

830  F0RI  =  1T0LEN  (K.BS  ( X )  )  :  IFMIDS  (KBS  ( X )  ,  I , 
1 ) =CHRS ( Y+64) THEN950 
835  NEXT : G0SUB860 


840  PRINT"a  TUT  MIR  LEID,  ABER  ICH  VERST 
EHE  IHREN" 

845  PRINT"®  BEFEHL  NICHT. ": G0T0749 
860  FUKEZT472U: FRTN7 fFGR I=rTU3: PRiNT EPS: 
NEXT:  PRINT"rm":  RETURN 

869  REM  ****  BEWEGEN  **** 

870  F0RI=1T06: I FKS=M I DS ( " NSWOHR " , I , 1 ) THE 
NB80 

875  NEXT : G0T0775 
880  IFGS=10RZB=10RMR=1THEN7600 
8B2  F0RI=1T0LEN (RIS (P) ) STEP2 
885  IFMIDS (R IS (P) ,1,1) =KSTHEN90O 
890  NEXT : G0SUB860 

895  PRINT"  IN  DIESE  RICHTUNG  GEHT  ES  N 
ICHT" : G0T0749 

900  SC=0 : Z I =VAL (MI DS ( Z I S ( P ) ,1,2) ) 

905  IFP=16ANDZ I=13THEN925 

910  I FP= 1 3ANDZ I =9ANDG (8) =0ANDV=1THEN7660 

915  IFZI=0THEN7680 

920  P=ZI : G0T0180 

925  I FG ( 8 ) =OTHENQNVG0T0930 , 7650 , 7670 
930  G0SUB860 : PR I NT " □  HINTER  IHNEN  LOEST 
SICH  EINE  STEIN-" 

935  PRINT"®  LAWINE,  DIE  DEN  WEG  VERSCHUE 
TTET. ":RIS(16)="W— O": ZIS ( 16) =" 1517" 

940  F0RI=1T02500: NEXT: P=ZI : G0T0180 

949  REM  **  SPRUNG  ZUR  BEF. AUSFUEHRUNG  ** 

950  IFX=4ANDY< 13THEN7100 
955  IFX=5THEN7200 

960  ZN=1000+ ( X-l ) *500+ (Y-l ) *20: ZNS=STRS ( 

ZN) 

96^  F0RI=1T04: NZ=VAL (MIDS(ZNS. 1+1,1) ) 

9/^  POKE (2060+1 ), (NZ+48) 

975  NEXT 

980  G0SUB860: GOTOl 

998  REM  ***  BEFEHLSAUSFUEHRUNG  *** 

999  PRINT"  OK  ! " : G0T0749 

1 000  I FY= 1 0RY=70RY= 1 60RY= 1 90R Y=20THENES= 

"E  GOTO 1002 

1001  ES="  " 

1002  PRINT"  HIER  IST  KEIN"ESHS ( Y) : G0T074 
9 

1 020  I FG ( Y ) =OORG <  Y  >  =PTHEN999 

1022  GOTO 1000 
1060  GOTO 1020 

1180  IFG ( 10) <  >OANDG ( 10) <  >PTHEN1000 
1182  I FV< >2THENPR I NT "  DER  " HS ( 1 0 ) "  LAESS 
T  SICH  NICHT  OEFFNEN" : G0T0749 
1184  I FG ( 9 ) <  >2 1 THEN999 

1186  PRINT"  IM  "HS (10)"  BEFINDET  SICH  EI 
N  "HS (9)"  ! ! " : G (9) =P: G0T0749 
1 300  I FP= 1 8ANDR I S ( 1 8 ) = " H " AND V=3THEN 1 306 
1302  I FP= 1 ORP  > 1 3THEN 1 000 

1304  PRINT"  HIER  IST  KEINE  GESCHLOSSENE 
TUER" : G0T0749 

1306  IFG(11)<  >OTHENPR I NT "  DIE  TUER  IST  V 
ERSCHLOSSEN  ! " : G0T0749 

1308  RIS ( 18) ="0-H": ZIS (18) ="1909": RIS (19 

) = " S-W " :ZIS(19)="1718" : GOTO 1 80 

1340  IFP<  >1 1THEN1000 

1 342  I F V=3QRG  (10)021  THEN999 

1344  IFG ( 1 1 ) <  >OTHENPRINT"  DER  SCHRANK  IS 

T  VERSCHLOSSEN" : G0T0749 

1346  PRINT"D  IM  SCHRANK  BEFINDET  SICH" 
1348  PRINT"®  EIN  GOLDENER  BALL" : G ( 10) = 

1 1 : G0T0749 

1400  PRINT"  DAS  IST  UNMOEGLICH  ! " : G0T074 
9 

1580  IFG (5) <  >PTHEN1000 

1582  IFP=18THENPRINT"  ES  IST  ZU  DUNKEL  H 
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IER  !":G0TO749 

1584  I Fß ( 2 ) =OTHEN 1 590 

1586  PRINT"Q  SIE  BRAUCHEN  EINEN  BEHAELTE 
R" 

1588  PRINT"[fi  UM  DEN  FROSCH  ZU  FANGEN  ! " : 

GÜTG749 

1590  IFGG=5THENPRINT"  SIE  TRAGEN  SCHON  5 
GEGENSTAENDE  ! " : G0T0749 
1592  6 (5) =0: GG=6G+1 : PRINT"  OK  !n:G0T0749 
1740  I FMR= 1 THEN7 640 

1742  I FV=3ANDP=9 ANDM0=0THENPR I NT "  VON  HI 
ER  AUS  GEHT  DAS  NICHT  ! " : G0T0749 
1744  GOTO 1000 
1780  I F6S<  > 1 THEN 1 000 

1782  PRINT"  DER  GEIST  MAG  DAS  NICHT  !!" 

: FQRI=1T02000: NEXT : G0T07630 

2080  IFG (5) =PTHENPRINT"  DER  FROSCH  LAESS 

T  SICH  NICHT  KUESSEN" : G0T0749 

2082  I FG ( 5 ) < >OTHEN 1 000 

2084  I FV< > 1 0RP< >6THEN999 

2086  PRINT"  ES  KNALLT  UND  STINKT. FOR 
I=1T02000: NEXT: B0T07800 
2240  IFMROl  THEN  1000 

2242  PRINT"n  DAS  MONSTER  SCHLAEGT  WILD  U 
M  SICH" 

2244  PRINT"!ä  UND  SCHLEUDERT  SIE  AUS  DEM 
BRUNNEN" : MR=0 

2246  F0RI=1T03000: NEXT: P=9: G0T0180 
2260  IFZBOITHENIOOO 

2262  F0RI=0T015: P0KE53281 , I : P0KE53280 , I : 
F0RJ=1T0100: NEXT : NEXT :  ZB=0 
2264  P0KE53280 , 5 : P0KE5328 1,5: ZK=ZK+ 1 : I FZ 
K=3THEN7 620 

2266  P=2+INT(13*RND(TI> ) : GOTO 180 

2280  IFGSOl  THEN  1000 

2282  I FT I $< " 00 1 OOO " THEN7630 

2284  GE= 1 : GS=0 : FOR I =832T0892STEP3 : POKE I , 

O: POKEI+1 , O : POKE I +2 , O : NEXT 

2286  PRINT"Q  DER  GEIST  HAT  IHREN  MUNDGE 

RUCH "  :  PR I NT " iS  NICHT  VERTRAGEN  !  " 

2288  G0T0749 

2400  I FP< > 1 OORF A= 1 THEN 1 000 
2402  1FV01THEN999 

2404  IFV=1THENFA=1:RI$ ( 10) ="N-W-R" : ZI$ (1 
0) ="070919" 

2406  RI$ ( 19) ="S-H" : ZI$ ( 19) =" 1710" : G0T018 
O 

2820  I FP< >30RLEN ( R I $ ( 3 ) ) =5THEN 1 000 
2822  PRINT"  DAS  GEHT  NICHT  ! " : G0T0749 
2840  I FP<  >11 THEN 1 000 

2842  PRINT"  DER  SCHRANK  IST  ZU  SCHWER  ! " 
: G0T0749 

2900  I FP< > 100RFA=1 THEN 1 OOO 

2902  G0T02B22 

3560  IFGS=1THEN7630 

3562  I FG ( 4 ) <  >OTHENPR I NT "  ICH  HABE  DAS  BU 
CH  NICHT  ! " : G0T0749 
3564  I FV=3THEN3568 

3566  PRINT"  ZAUBERWORT  :  " Z 1$ : GGT0749 
3568  PRINT"D  ZAUBERWOERTER  :  "  Z  1$: PRINT" 

CS"SPC  (  17)  Z2$:  G0TQ749 

3660  IFG (9) <  >OTHENPRINT"  ICH  HABE  KEINEN 
ZETTEL" :G0T0749 

3662  PRINT"  ZAUBERWORT:  "Z2$: FDRI=1T0250 
O: NEXT 

3664  PRINT"D  DER  ZETTEL  VERSCHWINDET  ! ! ! 

" : GG=GG-1 : G (9) =21 : G0T0749 

3860  IFP<  >120RSC=0THEN1000 

3862  PRINT"D  TUT  MIR  LEID,  ABER  ES  SCHE 

INT" 
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3864  PR INT" CS  EINE  FREMDE  SPRACHE  ZU  SEI 
N" : G0TO749 

4300  I FP< 1 20R ( V=3ANDP= 1 8 ) THENPR INT"  OK .  . 
.NICHTS  PASSIERT  ! " : G0T0749 
4302  GOTOIOOO 

4320  I FP<  >30RLEN ( R I $ ( 3 ) )=5THEN1000 
4322  PRINT"G  HINTER  DEM  "H$<17> 

4324  PRTNT’1  CS  “SUHL  1  NT  “EIN  HUHLKHUM  ZU  SEI 
N  ! " : G0T0749 

4380  I F V=2ANDP= 1 2ANDLEN (  R I  $  <  1 2  >  > =3THEN43 
88 

4382  IFP=19ANDG (8) =21THEN4392 

4384  I FP  > 1 4ANDP< 1 8THEN 1 OOO 

4386  PRINT"  OK... NICHTS  BESONDERES  FESTZ 

USTELLEN  ! " : G0T0749 

4388  P0KE214 , 11:  PRINT :  PRINTSPC  (18)  " EM  f  \-/ 

0" : G0SUB860 

4390  PRINT"  EINE  SCHRIFT  ERSCHEINT.  .." :.S 
C=1 : G0T0749 

4392  G (8) =19: PRINT"  AN  DER  WAND  HAENGT  E 
IN  SCHWERT  ! " : G0T0749 

4400  I FP= 1 O ANDF A=OTHENPR I NT "  KLINGT  HOHL 
. . . " : G0T0749 
4402  GOTOIOOO 

4580  IFG (5) <  >OANDG (5) <  >PTHEN1000 

4582  PRINT"  DER  FROSCH  ENTWISCHT  IHNEN  ! 

I» 

4584  IFG (5) <  >180RV<  >1THEN4588 

4586  GOT0749 

4588  IFG (5) =0TH£NGG=GG-1 

4590  G (5) =1+INT ( 19*RND ( 1 ) ) : 60T0749 

4740  I FMR=OTHEN 1 OOO 

4742  r  INT"  GUTE  IDEE,  ABER  DAS  GEHT  NIC 

HT  ! " : G0TG749 

4760  IFZB=0THEN1ÖÖ0 

4762  G0SUB4770: IFY=OORG ( Y) <  >0THEN749 
4764  IFY=8ANDZA=2THEN7820 
4766  G0T07620 

4770  INPUT"  WOMIT  " ;  WM$ 

4771  F0RI  =  1T0LEN  (WM$) :  IFMID* (WM* , I , 1 ) =" 
"THEN4773 

4772  NEXT : G0T04774 

4773  WM*=RIGHT*(WM*,LEN(WM*)-I) 

4774  F0RY=1T012: IFWM*=LEFT*(H*(Y) , LEN (WM 
*) ) THEN4776 

4775  NEXT:  BOSUB860-:  PRINT"  ICH  VERSTEHE 
" WM* " '  NI CHT  ! " : Y=0 : RETURN 

4776  IFG  (YX>0THENG0SUB860:  PRINT"  ICH  HA 
BE  DIESEN  GEGENSTAND  NICHT  ! " 

4777  RETURN 

4780  I FGS=0THEN1 OOO 

4782  G0SUB4770: IFY=OORG  <Y) <  >OTHEN749 

4784  GOSUB860 : 0NVG0T047B5 , 4790 , 4794 

4785  IFG (8) =OTHENPRINT"  SIE  SIND  GESTOLP 
ERT,  UND. . . " : F0RI=1T02000: NEXT : G0T07630 

4786  I FZ A= 1 ANDY=7THEN4798 
4788  G0T07630 

4790  IFZA=1ANDY=3THEN4798 
4792  G0T07630 

4794  I F Y= 1 THENPR INT "  DER  GEIST  IST  TOT, 

ABER. . . " : F0RI=1T02000: NEXT 
4796  G0T07630 

4798  POKEVI+21 ,0:GS=0:GE=1 : PRINT"  OK...D 

ER  GEIST  IST  TOT  ! " : G0T0749 

5000  I FG ( 1 ) <  >OANDG  < 1 ) <  >PTHEN 1 OOO 

5002  PRINT"  WOZU  SOLLTE  DAS  GUT  SEIN  ?": 

G0T0749 

5020  IFG (2) <  >OANDG (2) <  >PTHEN1000 
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5022  PRINT"n  SO  GEHT  MAN  NICHT  MIT  FREMD 
EM" 

5024  PRINT"®  EIGENTUM  UM  !  "  :  G0T0749 
5300  I FP= 1 8ANDR 1$ ( 18) ="H" AND V=3THEN53Q6 
5302  I FP= 1 ORP  > 1 3THEN 1 000 
5304  PR INT "WIESO,  HIER  IST  KEINE  VERSCHL 
□SSENE  TUER" : G0T0749 

5306  PRINT"  DIE  TUER  IST  ZU  STABII _ ":G 

0T0749 

5320  G0SUB4770 : I FY=OORG ( Y ) < >0THEN749 
5322  IF  (V=1ANDY=8) OR ( V=3ANDZA=2ANDY=8) TH 
EN7247 

5324  G0SUB860 SPRINT"  DAS  GEHT  NICHT  ! " : G 
0T0749 

5340  I FP<  >11 THEN 1 000 

5342  PRINT"D  DER  SCHRANK  LAESST  SICH  NIC 
HT" 

5344  PRINT"®  MIT  GEWALT  OEFFNEN  ! “ : G0T07 
49 

5380  I FP  > 1 4 ANDPC 1 8THEN 1 000 

5382  PRINT "SIE  KOENNEN  DIE  WAND  NICHT 

RSTOEREN  ! " : GOT0749 

6499  REM  ***  BEFEHL  SAGE'  *** 

6500  GQSUB860: IFHT=Z 1TTHENZA=1 : G0T06506 
6502  IFHT=Z2TTHENZA=2:G0T06506 

6504  GÜT07690 

6506  C3NVG0TO65O8 ,6512, 6520 

6508  I FZ A= 1 ANDG (  7 ) =0ANDGS= 1 ANDG ( 4 ) =0THEN 

PRINT"  DIE  KEULE  VIBRIERT. G0T06528 

6510  G0T06526 

6512  I F Z A= 1 ANDP= 1 2 ANDSC= 1 THENR I T ( 12) ="N- 
W-0" : Z 1$ ( 12) ="080013" : G0T0415 
6514  IFZA=1 ANDG (3) =0ANDGS=lTHENP0KEVI+39 
,0: G0T0755 

6516  IFZA=2ANDG (8) =0ANDZB=1 ANDG (4) =OTHEN 
PRINT"  DAS  SCHWERT  LEUCHTET. G0TG6528 
6518  G0T06526 

6520  IFZA=1 ANDG (3) =OANDMO=OANDP=9THENPR I 

NT"  DAS  AMULETT  LEUCHTET _ " : G0TO6528 

6522  IFZA< >20RG (4) <  >OORP<  >30RRIT (3) <  >"W- 
0"THEN6526 

6524  PRINT"  DER  SPIEGEL  LEUCHTET. GOT 
06528 

6526  PRINT"  OK... ES  TUT  SICH  NICHTS  ! " : G 
0TQ749 

6528  FORI  =  lT02000s  NEXT : G0T0755 

6999  REM  *  BESITZ/GEGENSTD  ANZEIGEN  * 

7000  PRINT"S"; :F0RI=1T020: PRINT" 

"sNEXT 

7002  PR I NT " SH®S I E "  s  PR I NT " ®BES ITZEN"  :  SP=0 
7005  F0RI=1T012: IFG ( I ) =OTHEN60SUB7050 
7010  NEXT 

7020  PR I NT " S" ; : FÜR I = 1 T020 : PR I NTSPC ( 32 ) " 
"sNEXT 

7022  J=0:PRINT"£*®"SPC(32) "ES  GIBT":PRIN 
TSPC (32) "BUIER  : " : SP=32 

7025  F0RI=1T012: IFG ( I ) =PTHENGOSUB7050: J= 
J+ls IFJ=6THENRETURN 
7030  NEXT: RETURN 

7050  IFI  =  1THENPRINTSPC (SP) " ®BLAS— "  :  PR I NT 
SPC (SP) "KUGEL" : RETURN 

7055  IFI  =  1 1THENPRINTSPC (SP) "®SCHLUES"  :  PR 
I NTSPC (SP) "SEL" : RETURN 

7060  I F I = 1 2THENPR I NTSPC ( SP ) " KKETTEN- " : PR 

I NTSPC (SP) "HEMD" : RETURN 

7065  PR I NTSPC  (SP)  "E£"G$  (  I )  :  RETURN 

7099  REM  ***  BEFEHL  'NIMM'  *** 

7100  I FG ( Y ) =PTHEN7 1 1 O 

7105  G0SUBB60: PRINT"  DIESER  GEGENSTAND 
IST  NICHT  HIER  ! " : GDT0749 
7110  I FGG<  5THEN7 1 20 


7115  G0SUBB60: PRINT"  SIE  HABEN  BEREITS 
5  GEGENSTAENDE  ! " : GDTQ749 

7120  IFY=5THENG0SUB860: PRINT"  DER  FRO 
SCH  HUEPFT  IHNEN  DAVON  !":G0T0749 
7125  G (Y) =0: GG=GG+1 : GQSUB860: PRINT"  OK 

! " : FORI =1 TO 1000: NEXT: G0T0750 

7199  REM  ***  BEFEHL  'WIRF'  *** 

7200  IFG  (YK>0THENG0SUBB60:  PRINT"  ICH  HA 
BE  DIESEN  GEGENSTAND  NICHT  ! " : G0T0749 
7205  G0SUBB60: INPUT"  WOHIN  " ; WH* 

7210  F0RI=1T0LEN(WHT) : IFMIDT ( WHT , I , 1 ) =" 
"THEN7220 

/2T5  NEXT:  GUT U 7225 

7220  WHT=RIGHTT(WHT,LEN(WHT)-I) 

7225  I FWHT= " BODEN " ORWHT= " WEG " ORWHT= " EGAL 
" ORWHT=" WAND " THEN7235 
7230  0NVG0T07240, 7270, 7330 
7235  G0SUBB60: PRINT"  OK  ! " : 6 ( Y) =P: GG=GG 
— 1 : G0T0749 

7240  I FY< >80RWHT<  > " SP I EGEL " 0RP<  >30RLEN ( R 
IT (3) )=5THEN7255 
7245  G(Y)=3:GG=GG-1 

7247  RIT(3)="N-W-0": Z IT (3) ="010204" : GÜSU 
B860 

7250  PRINT"  DER  SPIEGEL  ZERBRICHT  ! " : FO 
RI=1TQ2000: NEXT: G0T0180 

7255  I FY< > 1 OORWHT<  > " BRUNNEN " ORP<  >9QRG ( 5 ) 
<  > 1 8THEN7380 

7260  G0SUB860: PRINT"D  AUS  DEM  BRUNNEN  K 
OMMT  EIN  FROSCH" 

7265  PRINT"®  MIT  DEM  BALL  IM  MUND.":G(1 
O) =9: G (5) =9: GG=GG— 1 : G0T0749 
7270  I FY< >30RWHT<  > " GE I ST " ORGS<  > 1 THEN7290 
727' j  IFZAO1THEN7630 

7280  POKEVI+21 ,0: G0SUB860: PRINT"  SIE 
HABEN  DEN  GEIST  BESIEGT  !" 

7285  GE=1 : GS=0: G (Y) =7: GG~ GG— 1 : G0T0749 
7290  I FY< >60RP< > 1 OQRWHT<  > " QUADRAT " ORFA= 1 
THEN7305 

7295  FA=1 : G (6) =10: GG=GG— 1 : RIT ( 10) ="N-W-R 
" : Z IT ( 10) ="070919" 

7300  RIT ( 19) ="S— H" :ZIT(19)=" 1710": GOTO 18 
0 

7305  I FY< >40RP< >30RWHT<  > " SP I EGEL " ORLEN ( R 
IT (3) ) =5THEN7315 
7310  G0T07245 

7315  I FY< >80RZB< > 1 0RWHT<  > " ZAUBERER " THEN7 
380 

7320  IFZAO2THEN7620 

7325  POKEVI+21 ,0:F0RI=1T02000: NEXT: G0T07 
820 

7330  I FY< > 1 ORWHT<  > " GE I ST " ORGS<  > 1 THEN7340 
7335  G0T07280 

7340  I FY< >30RWHT<  > " BRUNNEN " ORP<  >9THEN736 
O 

7345  G(3)=18: GG=GG— 1 : G0SUB860 : IFM0=1THEN 

PRINT"  OK  ! " : G0T0749 

7350  I FZ A= 1 THENPR I NT "  AUS  DEM  BRUNNEN  ER 

TOENT  EIN  SCHREI " : M0=1 : G0T0749 

7355  G (3) =9: PRINT"  DAS  AMULETT  KOMMT  ZUR 
UECKGEFLOGEN  ! " : G0T0749 

7360  IFY<  >80RWHT<  >"SPIEGEL"ORP<  >30RLEN (R 
IT (3) )=5THEN7380 
7365  I FZA=2THEN7245 
7370  G0T07235 

7380  I FWHT=" BRUNNEN "ANDP=9THENG (Y) =18: GO 
TQ7415 

7382  I FWHT= " QUADRAT " ANDP= 1 OANDFA=OTHENG ( 
Y) =10: G0TQ7415 

7385  I FWHT= " HOEHLE " ANDP= 1 7THENG ( Y ) = 1 9 : GO 
T07415 
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7370  I FWH$= " BE I ST " ANDGS= 1 THEN7630 
7395  I FWH$= " ZAUBERER " ANDZB= 1 THEN7620 
7400  IFWH*=,,SPIEGEL"ANDP=3ANDLEN(RI$(3)  ) 
=3THEN7235 

7405  G0SUB860 : PR I NT "  ICH  VERSTEHE  SIE  NI 
CHT. . . " 

7410  F0RI=1T02000: NEXT : G0TG7205 

7415  GG=GG— 1 : G0SUB860: PRINT"  OK  !":GOTO 

749 

7499  REM  ***  ERKLAERUNG  *** 

7500  PRINT"U®  «E  MUESSEN  VERSUCHEN,  EIN 
E  AUFGABE  ZU" 

7505  PRINT"®  LOESEN,  INDEM  »IE  DEM  -OMPU 
TER  SAGEN," 

7510  PRINT"®  WAS  ER  TUN  SOLL. " 

7515  PRINT"®  +UR  -ORTBEWEGUNG  GEBEN  » 
IE  NUR" 

7520  PRINT"®  4BKUER ZUNGEN  EIN  I 

=  /T— —  — " : REM  N-S-W-O-H-R  =  NORD  - 

7525  PRINT"®  ¥ -  0“»|  -  ["*1  -  F“  I  - 

-  r/\  “->  " 

7526  REM  SUED  -  WEST  -  OST  -  HOCH  -  RUNT 
ER 

7530  PRINT"®  4NS0NSTEN  MUESSEN  DIE  | EFEH 
LE  AUS  ZWEI" 

7535  PRINT"®  üOERTERN  BESTEHEN  (XERB/  |AU 
PTWORT) " 

7540  PRINT"®  -ER  -OMPUTER  VERSTEHT  DIE  X 
ERBEN  :" 

7545  PRINT"®  OEFFNE , F ANGE , KUESSE , N I MM , L I 
ES, WIRF," 

7550  PRINT"®  BERUEHRE/KLOPFE, ERSCHLAGE/T 
OETE,SAGE" 

7555  PRINT"®  ZERBRECHE/ ZERSTOERE  -  -E 
RTIG  ???" 

7560  P0KE198 ,0: WA IT 198 , 1 :  GOTO 100 

7599  REM  ****  VERLOREN  **** 

7600  IFZB=1THEN7620 
7605  IFGS=1THEN7630 
7610  IFMR=1THEN7640 

7620  PR INT" LA®  DER  ZAUBERER  HAT  SIE  IN  E 
INE  KROETE" 

7625  PRINT"®  VERWANDELT. ": G0T07700 
7630  PRINT-IA®  DER  GEIST  HAT  SIE  GEB 

ISSEN. " : GOT07700 

7640  PRINT "LA®  DAS  MONSTER  HAT  BESCHLOSS 
EN,  SIE" 

7645  PRINT"®  ZU  HEIRATEN. G0T07700 
7650  PR INT "LA®  SIE  SIND  UNTERWEGS  GESTOL 
PERT  UND" 

7655  PRINT"®  HABEN  SICH  DABEI  DEN  KLEINE 
N  F I NGER " : PR I NT " ®  VERSTAUCHT . " : G0T07700 
7660  PRINT"LA®  AUS  DEM  TORBOGEN  HAT  SICH 
EIN  STEIN" 

7665  PRINT"®  GELOEST  UND  IST  IHNEN  AUF  D 
EN  FUSS" : PRINT"®  GEFALLEN GOT077OO 

7670  PRINT "LA®  SIE  SIND  IN  EINEN  ERDRUTS 
CH  GERATEN" 

7675  PRINT"®  UND  HABEN  SICH  IHRE  NEUE  HO 
SE  DRECK I G " : PR I NT " ®  GEMACHT . " : GÜT07700 
7680  PRINT"LA®  SIE  SIND  VOM  BERG  GEFALLE 
N  UND  HABEN" 

7685  PRINT"®  DABEI  IHRE  BRILLE  ZERBROCHE 
N. " : GOTD7700 

7690  PRINT"LA(S  SIE  HABEN  SICH  IN 

EINE" 

7695  PRINT"®  BANANE  VERWANDELT 

i  I* 

7700  PRINT"®  DESHALB  MUESSEN-  SIE  LEIDER 
AUFGEBEN. " 

7705  PR  INT"  BSKKEfi  MOECHTEN  SIE  ES  NOCH  EIN 


LISTING  DES  MONATS 


MAL  PROBIEREN  7" 

77 1 O  GET I $ : I F I * = " J " THENRUN5 
7715  I F I $<  > " N " THEN77 1 0 
7720  END 

7799  REM  ****  GEWONNEN  **** 

7800  PRINT"Lß§  ...  UND  DER  "H$< 

5)"  . . . ":FDRI=1T01500:NEXT 

7805  PRINT"D  ...  VERWANDELT  SIC 

H  . . . ":FGRI=1T01500:NEXT 

7810  PRINT"Ö.  .  .  IN  EINE  WUNDERSCHOENE  PR 
INZESSIN  . . . ":F0RI=1T02000:NEXT 
7815  PR  I  NT  "  LieBjKBB3"  :  GQTQ7840 
7820  POKEVI+21 , O:  PRINT"ÜEEI3gEIää  SIE  H 
ABEN  DEN  ZAUBERER  BESIEGT  ! ! ! " : G0T07B40 

7B30  - crg-Bascra-DErr  sch 

ATZ  GEFUNDEN  ! ! ! " 

7840  PRINTSPC (13) "®®GRATULIERE ,": PRINT"® 

SIE  HABEN  IHR  ZIEL  ERREICHT  !!" 

7850  PRINT"^®  WOLLEN  SIE  WEITER  SP 

IELEN  ?" 

7860  GET I $ : I F I $= " J " THENRUN5 
7870  IFI$0"N"THEN7860 
7880  END 

8000  DATAOEFFNE , BDJPRU , FANGE , EMO , KUESSE , 

EMNOU , N I MM , ABCDEFGH I JKLQRU 

8005  DATAW I RF , ABCDEFGH I JKL , L I ES , D I S , BERU 

EHRE , PQTU , TOETE , EMNO 

8010  DATAZERSTOERE , ABPQRT , WERFE , LESE . KLO 
PFE , ERSCHLAGE , ZERBRECHE 

8015  D ATAGL ASKUGEL , KAEF I G , AMULETT , BUCH , F 
ROSCH , HELM , KEULE , SCHWERT , ZETTEL , BALL 
8020  DATASCHLUESSEL , KETTENHEMD , MONSTER , Z 
AUBE^R  »GEIST,  TUER ,  SP  I  EGEL ,  SCHRANK 
8025  u,  *T ASCHR I FT , WAND , QUADRAT 
8030  DATAS , 03 , S-0 , 0503 , W-0 , 0204 , W-H ,0311 
, N-S , 0208 ,0,07, S-W , 1 006 , N-0 , 0509 
8035  DATAS-W-O-R , 1 308 1018, N-W , 0709 , R , 04 , 

W-0, 0013, N-W-O, 091214, W-0, 1300, 0,16 
8040  DATAW-O-H, 151713, N-W, 1916, H, 09, S, 17 
8045  DATA20, 20, 20, 20, 18,2,21 ,21,21,21,6, 

5 

8050  DATAS I LBER , BLUME , GOLD , R I NB , KUPFER , H 
ORN, PLATIN, STERN 

8054  REM  SPRITE  1  -  GEIST 

8055  DATAO, 127,0,0,255, 192, 1 ,20ö,96,3,25 
5,240,1,255,240,1,245,248,1,255,248 
8060  DATA3 , 255 , 248 , 7 , 255 , 248 ,15, 255 , 252 , 
31,255,254,3,255,240,3,255,224 

8065  DATA3 , 255 , 224 , 7 , 255 , 224 , 7 , 255 , 224 , 7 
, 255 , 240 , 15 , 255 , 240 ,15, 255 , 248 
8070  DAT  A3 1 , 255 , 252 , 59 , 1 87 ,110 

8074  REM  SPRITE  2  -  MONSTER 

8075  DATA12, 0,48, 30,0, 120,3,0, 192, 1 , 129, 
128,3,195,192,15,231,240,62, 126,124 
8080  DATA 124,60,62, 248 ,60,31, 254 ,126,127 
, 255 , 255 , 255 ,127, 255 , 254 ,127, 255 , 254 
8085  DATA63 ,90,252,30,165,120,31, 255 , 248 
,7,255,224,4, 126,32,4,60,32 

8090  DATA3 1,0, 248, 42, 129,84 

8094  REM  SPRITE  3  -  ZAUBERER 

8095  DATAO, 15,224,0,63, 128,0, 127, 128,0,2 
19,0,1 ,255,0,3,255,128,31 ,255,240 

8100  DATA127, 255, 252, 127,255,252,111 ,255 
, 236 ,111, 255 , 236 ,103, 255 , 204 ,98,170,140 
8105  DATA99, 255, 140,71,255, 196,7,199,192 
, 15,131,224,15,1,224,14,0,224 
8110  DATA28,0, 112,60,0, 120 

READY. 

Listing  des  Monats:  Castle  of  Doom  (Schluß) 
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meisten  Menschen 
glauben,  daß 
sie  nicht  zeichnen 
können. 
Lassen  Sie  sich  vom 
Gegenteil  über¬ 
zeugen  und 
werden  Sie  mit 
»Paint  Magic«  zum 
Künstler. 


Der  Zauberer 
vom  Titelbild 


Die 
und  die 
L°komotjVe 
sind  auf 
»Paint 
Magic« 
^ge¬ 
speichert 


Software-Test 


M 


it  diesem  Programm  wird  Ihr 
Computer  zwar  nicht  zum  Zau¬ 
berer  und  es  hat  auch  nichts 
mit  Magie  zu  tun,  wenn  man  mit 
»Paint  Magic«  arbeitet.  Es  bietet 
aber  doch  einige  außergewöhnli¬ 
che  Fähigkeiten,  die  es  von  anderen 
Zeichenprogrammen  abhebt.  Sein 
Leistungsumfang  resultiert  allein 


daraus,  daß  es  alle  Hardwaremerk¬ 
male  des  C  64  nutzt. 

Anhand  einer  leicht  verständlich 
geschriebenen  Anleitung  (es  lag  lei¬ 
der  nur  eine  englische  Version  vor) 
arbeitet  man  sich  recht  schnell  in 
die  Grundbefehle  von  »Paint  Magic« 


ein.  Mit  diesen  Befehlen  kann  man 
Linien  ziehen,  Boxen  beziehungs¬ 
weise  Rechtecke  und  Kreise  ziehen 
oder  einfach  frei  auf  dem  Bild¬ 
schirm  zeichnen.  Doch  nur  mit  die- 
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Auf  zwei  Bildschirmen  schafft  Kunstwerke 

gleichzeitig  malen 


sen  Möglichkeiten  könnte  man  noch 
nicht  viel  anfangen.  Beschäftigt  man 
sich  nun  intensiver  mit  dem  Befehls¬ 
satz  und  der  Bedeutung  der  einzel¬ 
nen  Begriffe,  lernt  man  bald  die 
Vielfalt  der  Verwendungsmöglich¬ 
keiten  und  die  Stärken  von  »Paint 
Magic«  kennen. 


Grundsätzlich  hat  man  zwei  Bild¬ 
schirme  zur  Verfügung,  zwischen 
denen  man  hin  und  her  schalten 
kann.  Setzt  man  den  RESTORE-Be- 
fehl,  bei  dem  der  zuletzt  getätigte 
Vorgang  rückgängig  gemacht  wird, 
richtig  ein,  kann  man  sogar  mit  drei 
Bildern  gleichzeitig  arbeiten.  Ein 
breites  Spektrum  an  Verwendungs¬ 
möglichkeiten  bietet  der  FILL-Be- 
fehl.  So  kann  man  nicht  nur  Flächen 
mit  einer  Farbe  ausfüllen,  sondern 
in  Verbindung  von  zwei  Farben  eine 
horizontale,  vertikale  oder  diagona¬ 
le  Schraffur  erzeugen.  Doch  damit 
noch  nicht  genug.  Hat  man  sich 
Farbmuster  selbst  definiert,  kann 
man  auch  mit  diesen  den  FILL-Be- 
fehl  anwenden. 

Den  Pinsel  selbst 
gestalten 

Eine  interessante  und  neue  Sache 
ist  der  GRAB-Modus.  In  diesem 
kann  man  sich  ein  Rechteck,  daß 
maximal  40  x  40  Punkte  beträgt,  aus 
dem  Bildschirm  »herausgreifen« 
und  dieses  sozusagen  als  Pinsel  ver¬ 
wenden.  Außerdem  arbeiten  auch 
die  Befehle  LINE,  BOX  und  CIRCLE 
im  GRAB-Modus.  Es  ist  damit  sehr 
leicht,  eindrucksvolle  Grafiken  auf 
den  Bildschirm  zu  »zaubern«. 

Sie  werden  sich  schon  fragen: 
Gibt  es  denn  keine  Möglichkeit,  ei¬ 


nen  Ausschnitt  zu  vergrößern  und 
damit  zu  zeichnen?  Au~h  daran  wur¬ 
de  gedacht.  Drückt  man  die  SPACE- 
Taste,  kommt  man  in  den  MAGNIFY- 
Modus  und  der  Bereich  um  den 
Cursor  wird  stark  vergrößert  darge¬ 
stellt.  Man  kann  dann  mit  dem  Aus¬ 
schnitt  über  das  ganze  Büd  wandern 
und  Veränderungen  vornehmen. 
Bei  all  den  oben  beschriebenen  Mo¬ 
di  und  Befehlen  kann  die  Geschwin¬ 
digkeit  des  Cursors,  der  mit  einem 
Joystick  oder  über  die  Cursortasten 
bewegt  wird,  in  acht  Stufen  variiert 
werden. 


Probleme  bei  den  Farben 


Die  Einstellung  der  verschiede¬ 
nen  Farben  ist  so  eine  Sache  bei 
»Paint  Magic«.  Man  hat  zwar  ein  ei¬ 
genes  Farbmenü,  in  dem  man  die 
fünf  Arbeitsfarben  vorwählen  und 
vier  Farbmuster  aus  diesen  entwer¬ 
fen  kann.  Doch  man  weiß  nie  genau, 
mit  welcher  Farbe  man  gerade  ar¬ 
beitet,  wenn  das  Menü  nicht  mehr  zu 
sehen  ist.  Die  einzelnen  Farben  wer¬ 
den  durch  Drücken  von  SHIFT  und 
eins  bis  fünf  eingestellt.  Die  Arbeits¬ 
farbe,  die  dann  benutzt  wird,  ergibt 
sich  durch  Drücken  von  eins  bis  fünf 
alleine.  Erst  nach  längerem  Um¬ 
gang  mit  »Paint  Magic«  hat  man  die¬ 
ses  Problem  einigermaßen  im  Griff. 

Das  Programm  verzichtet  ganz  auf 
den  Einsatz  von  Ton,  obwohl  er  an  ei¬ 


nigen  Stellen  recht  nützlich  wäre.  Bei 
der  Bedienung  der  Diskette  findet 
man  nur  Befehle  zum  Laden,  Ab¬ 
speichern  und  Löschen  von  Bildern 
sowie  zur  Anzeige  des  Inhaltsver¬ 
zeichnisses  der  Diskette.  Es  wäre 
wünschenswert,  auch  Diskettenbe¬ 
fehle  einsetzen  zu  können,  die  alle 
Möglichkeiten  zur  Floppydiskbe- 
dienung  enthalten. 

Mit  »Paint  Magic«  bekommt  man 
ein  sehr  leistungsfähiges  Werkzeug 
zur  Ausschöpfung  der  Grafikfähig¬ 
keiten  des  Computers.  In  Verbin¬ 
dung  mit  dem  gut  geschriebenen 
und  übersichtlich  aufgebauten 
Handbuch  stellt  es  eine  ideale  Lö¬ 
sung  für  solche  Leute  dar,  die  gerne 
auf  dem  Bildschirm  malen,  zeichnen 
oder  einfach  ihrer  Fantasie  freien 
Lauf  lassen  wollen. 


Hilfestellung 


Wer  sich  nicht  traut,  gleich  frei  zu 
zeichnen,  kann  eines  der  elf  abge¬ 
speicherten  Bilder  auf  den  Bild¬ 
schirm  holen  und  dieses  verändern 
oder  einfach  darauf  weitermalen. 
Zu  diesem  Vorgang  findet  man  in 
der  Anleitung  genaue  Hinweise. 

»Paint  Magic«  wird  ab  September 
von  Happy  Software  zum  Preis  von 
zirka  80  Mark  für  den  Commodore 
64  auf  Diskette  angeboten. 

(Markus  Braun/wg) 
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ISM  stellt  eine  Ausnahme  unter  den  Datenver¬ 
waltungsprogrammen  dar.  Es  unterscheidet 
sich  in  einigen  wesentlichen  Punkten  von 
Superbase  64,  Multidata  oder  Datamat. 


B4ER  nni  int 


Im  Gegensatz  zu  den  anderen  Da¬ 
teiprogrammen  wie  Superbase  64 
oder  Multidata  ist  ISM  64  kein  fer¬ 
tiges  Anwendungsprogramm.  Es 
handelt  sich  vielmehr  um  eine  Sy¬ 
stemerweiterung,  die,  erst  eingear¬ 
beitet  in  ein  eigenes  Programm, 
richtig  nutzbar  ist. 

Diese  Konzeption  hat  Vor-  und 
Nachteile:  Zum  einen  bietet  sie  die 
Möglichkeit  der  individuellen  Pro¬ 
blemlösung,  zum  anderen  kann 
aber  insbesondere  der  Anfänger 
vor  so  große  programmtechnische 
Probleme  gestellt  werden,  daß  er 
ISM  64  am  Ende  gar  nicht  nutzen 
kann. 

Der  hier  vorliegende  Testbericht 
geht  daher  nicht  nur  auf  die  Mög¬ 
lichkeiten  ein,  die  ISM  64  bietet,  son¬ 
dern  gibt  auch  Hinweise  zur  Pro¬ 
grammierung. 

Grundlage  dieses  Berichts  ist  die 
mehrmonatige  Arbeit  mit  ISM  64  bei 
der  Erstellung  eines  umfassenden 
Anwenderprogramms. 


Allgemeines 


ISM  64  selbst  ist  ein  Maschinen¬ 
programm  von  15  KByte  Länge  und 
belegt  normalerweise  den  Basic- 
Speicher  ab  dez.  27000.  Für  das  An¬ 


wenderprogramm  stehen  dann 
noch  etwa  24  KByte  zur  Verfügung. 
Auch  wenn  man  noch  einen  gewis¬ 
sen  Bedarf  an  Speicherplatz  für  Da¬ 
ten  abzieht,  sollte  dies  ausreichend 
sein.  Das  Maschinensprache-RAM 
(dez.  49152  bis  53247)  bleibt  frei;  hier 
lokalisierte  Programme  (zum  Bei¬ 
spiel  Interfaces  oder  Programme 
zur  Unterstützung  der  Floppy)  soll¬ 
ten  normal  verwendbar  sein. 

Nach  dem  Laden  von  ISM  64  ste¬ 
hen  eine  Reihe  spezieller  Befehle 
zur  Einrichtung  und  Bearbeitung 
von  Dateien  zur  Verfügung.  Diese 
Befehle  sind  sehr  mächtig  und  nicht 
mit  jenen  zu  vergleichen,  die  man 
von  den  üblichen  Interpretererwei¬ 
terungen  wie  zum  Beispiel  Simons 
Basic  kennt.  Das  Schreiben,  Ändern 
und  Suchen  von  Datensätzen  wird 
dann  sehr  bequem  und  effektiv. 

Was  bietet  ISM  64? 

ISM  64  beeindruckt  zunächst 
durch  die  Möglichkeit,  praktisch  un¬ 
begrenzt  lange  Datensätze  verwal¬ 
ten  zu  können.  Ein  einzelner  Satz 
darf  bis  zu  31875  Zeichen  lang  sein, 
er  kann  in  bis  zu  125  Felder  unterteilt 
werden,  wobei  jedes  Feld  bis  zu  255 
Zeichen  enthalten  darf.  Die  Felder 
können  von  fester  oder  variabler 


Länge  sein,  bis  zu  40  Felder  lassen 
sich  als  Schlüsselfelder  definieren. 
Angesichts  dieser  Zahlen  fragt  man 
sich  natürlich,  ob  dies  überhaupt 
sinnvoll  ist.  Welcher  Privatanwen¬ 
der  hat  schon  Datensätze  mit  Zehn¬ 
tausenden  von  Zeichen  oder  Dut¬ 
zenden  von  Schlüsseln?  Hier  muß 
man  wissen,  daß  der  ISM  nicht  spe¬ 
ziell  für  den  C  64  entwickelt  wurde. 
Es  handelt  sich  vielmehr  um  die  an¬ 
gepaßte  Version  eines  Programms, 
das  in  erster  Linie  zum  gewerbli¬ 
chen  Einsatz  auf  den  CBM-Compu- 
tern  der  8000er-Serie  gedacht  ist. 
Aber  davon  abgesehen,  auch  bei 
der  privaten  Anwendung  sind  Satz¬ 
längen  von  um  die  1000  Zeichen 
durchaus  nicht  unrealistisch.  Wenn 
man  zum  Beispiel  Literaturdaten 
verwaltet  und  jedem  Eintrag  eine 
kurze  Zusammenfassung  der  Litera¬ 
turstelle  hinzufügt,  sind  500  bis  1000 
Zeichen  schnell  erreicht. 

Entsprechend  weitgehend  sind 
auch  die  Möglichkeiten,  die  dem 
Anwender  bei  der  Einrichtung  der 
Datei  zur  Verfügung  stehen.  Wie  be¬ 
reits  erwähnt,  kann  ein  Feld  des  Sat¬ 
zes  als  variabel  definiert  werden, 
das  heißt  die  Länge  des  Feldes  kann 
von  Satz  zu  Satz  unterschiedlich  sein. 
Hierbei  wird  auf  der  Floppy  aber 
immer  nur  der  Platz  belegt,  der  der 
tatsächlichen  Länge  des  Satzes  ent¬ 
spricht.  Dies  ist  keinesfalls  selbst¬ 
verständlich,  andere  Systeme  sind 
da  nicht  so  flexibel.  Dem  Anwender 
bleibt  auch  überlassen,  welche  Fel¬ 
der  er  wirklich  mit  Daten  füllen  will. 
Auf  diese  Weise  ist  es  möglich,  ohne 
Speicherplatzverschwendung  den 
Datensatz  großzügig  zu  definieren 
und  erst  nach  und  nach  alle  Felder 
auszufüllen.  Ein  Datensatz  kann  so 
im  Laufe  der  Zeit  dynamisch  wach¬ 
sen. 

Bis  zu  40  Felder  eines  Satzes  kön¬ 
nen  als  Schlüssel  definiert  werden. 
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Von  diesen  Feldern  werden  bis  zu  48 
Zeichen  linksbündig  in  die  Schlüs¬ 
seldatei  eingetragen.  Bei  der  Suche 
nach  einem  Satz  wird  dann  zunächst 
auf  diese  Datei  zugegriffen  (siehe 
unten).  Bei  ISM  64  können  die 
Schlüssel  als  ein-  oder  mehrdeutig 
definiert  werden.  Ein  mehrdeutiger 
Schlüssel  (zum  Beispiel  Nachname) 
darf  mehrfach  Vorkommen,  durch 
sequentielle  Suche  (siehe  unten) 
können  dann  alle  Sätze  mit  diesem 
Schlüssel  gefunden  werden.  Hat 
man  dagegen  einen  Schlüssel  als 
eindeutig  definiert  (zum  Beispiel 
sinnvoll  bei  einer  laufenden  Num¬ 
mer),  dann  weist  der  Dateiverwalter 
diesen  Satz  mit  einer  entsprechen¬ 
den  Fehlermeldung  zurück.  Der 
Satz  geht  hierbei  natürlich  nicht  ver¬ 
loren,  sondern  kann  vom  Anwen¬ 
derprogramm  zur  Korrektur  weiter¬ 
verarbeitet  werden.  Überhaupt  ist 
die  Fehlerbehandlung  bei  ISM  64 
sehr  gelungen.  Systemabstürze  las¬ 
sen  sich  bei  geschickter  Program¬ 
mierung  weitgehend  ausschließen. 

An  dieser  Stelle  erscheint  es  sinn¬ 
voll,  etwas  ausführlicher  auf  die 
Therorie  der  Dateiverwaltung  ein¬ 
zugehen.  ISM  64  verwendet  hier  kei¬ 
ne  spezielle  Lösung,  sondern  ver¬ 
waltet  die  Sätze  nach  dem  Prinzip 
der  relativen  Datei,  wobei  Schlüssel 
und  Sätze  in  unterschiedlichen  Da¬ 
teien  abgelegt  werden.  Relativdatei¬ 
en  werden  vom  Basic  V  2.0  ja  leider 
nicht  unterstützt,  und  sind  daher 
sonst  nur  durch  Kunstgriffe  zugäng¬ 
lich. 

Das  Prinzip  der 
relativen  Datei 

Wie  ist  nun  eine  relative  Datei  auf¬ 
gebaut?  Das  Prinzip  ist  so  einfach 
wie  wirkungsvoll:  Der  Speicherplatz 
auf  der  Floppy  wird  zunächst  in  klei¬ 
ne  Häppchen,  die  sogenannten  Re¬ 
cords,  zerlegt.  Die  Länge  der  einzel¬ 
nen  Records  ist  bei  ISM  64  frei  wähl¬ 
bar.  Dies  ist  wichtig,  wenn  man  den 
bei  der  Floppy  VC  1541  ja  nicht  gera¬ 
de  üppig  bemessenen  Speicher¬ 
platz  optimal  nutzen  will.  Die  einzel¬ 
nen  Records  werden  intern  durch¬ 
numeriert.  Ein  Datensatz  wird  nun  in 
diese  Records  geschrieben,  ein  Satz 
von  beispielsweise  300  Byte  Länge 
belegt  dann  bei  einer  gewählten  Re¬ 
cordlänge  von  100  Byte  gerade  drei 
Records.  Dem  Satz  wird  dann  vom 
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Programm  intern  zur  eindeutigen 
Unterscheidung  von  anderen  Sät¬ 
zen  die  Nummer  zugewiesen,  die 
der  Nummer  des  ersten  belegten 
Records  entspricht.  Gleichzeitig 
werden  die  Schlüssel  des  Satzes  — 
dies  sind  die  Einträge,  über  die  man 
später  auf  den  Satz  zugreifen  möch¬ 
te  —  in  eine  eigene  Datei,  die  Schlüs¬ 
seldatei,  in  einen  sogenannten 
Schlüsselbaum  eingetragen.  Die 
Schlüssel  werden  von  vornherein  al¬ 
phabetisch  beziehungsweise  nume¬ 
risch  sortiert.  Bei  jedem  Schlüssel 
findet  sich  dann  als  Verweis  auf  den 
zugehörigen  Satz  die  Nummer  des 
Records,  mit  dem  der  Satz  beginnt. 
Diese  Nummer  ist  naturgemäß  um¬ 
so  höher,  je  weiter  der  Satz  relativ 
vom  Anfang  der  Datei  entfernt  ist,  je 
mehr  Records  zum  Zeitpunkt  des 
Eintrags  also  schon  belegt  waren.  So 
erklärt  sich  die  Bezeichnung  Rela¬ 
tivdatei.  Bei  der  Suche  nach  einem 
bestimmten  Satz  sucht  der  Dateiver¬ 
walter  im  Schlüsselbaum  nach  dem 
angegebenen  Suchbegriff.  Ist  die¬ 
ser  vorhanden,  dann  m  ;  rkt  sich  der 
Dateiverwalter  die  beim  Schlüssel 
eingetragene  Recordnummer.  Die¬ 
se  gibt  die  relative  Lage  des  ent¬ 
sprechenden  Satzes  zum  Dateian- 


Ausdruck  von  Datensätzen 


fang  an,  und  der  Dateiverwalter 
kann  auf  diesen  Satz  zugreifen.  Das 
Prinzip  der  Datenspeicherung  in 
Relativdateien  güt  momentan  als  op¬ 
timal  bei  der  Arbeit  mit  Kleincompu¬ 
tern. 

Wie  bereits  erwähnt,  stellt  ISM  64 
Befehle  zum  Einträgen,  Ändern  und 
Suchen  von  Datensätzen  zur  Verfü¬ 
gung.  Der  Aufruf  der  einzelnen  Be¬ 


fehle  erfolgt  aus  einem  ganz  norma¬ 
len  Basic-Programm  heraus,  der 
Komfort  der  Arbeit  ist  in  erster  Lime 
von  der  Qualität  des  Anwenderpro¬ 
gramms  abhängig.  Die  Befehle  an 
sich  lassen  in  bezug  auf  die  dem  An¬ 
wendungsprogrammierer  gegebe¬ 
nen  Möglichkeiten  eigentlich  kaum 
Wünsche  offen. 

Datensätze  eintragen 

Jeder  Datensatz  kann  und  sollte 
unmittelbar  nach  der  Erstellung  auf 
die  Floppy  geschrieben  werden, 
um  nicht  das  Risiko  eines  etwaigen 
Datenverlustes,  beispielsweise  in¬ 
folge  eines  Stromausfalls,  einzuge¬ 
hen.  Die  Zeit,  die  zum  Eintrag  benö¬ 
tigt  wird,  steigt  mit  der  Anzahl  der 
Schlüssel  stark  an.  Allerdings  wer¬ 
den  die  Schlüssel  beim  Eintrag  be¬ 
reits  alphabetisch  sortiert,  ein  Ar¬ 
beitsgang,  der  bei  der  Ausgabe  von 
sortierten  Listen  bei  den  meisten  an¬ 
deren  Programmen  später  bewäl¬ 
tigt  werden  muß.  Vierzig  Schlüssel 
sind  bei  der  bekannten  »Schnellig¬ 
keit«  der  VC  1541  sicher  kaum  reali¬ 
sierbar.  ISM  64  bietet  hier  allerdings 
die  Möglichkeit  der  Stapelverarbei¬ 
tung,  das  heißt  man  trägt  zunächst 
nur  den  Satz  ein.  Dies  geht  sehr 
schnell,  der  zeitaufwenige  Eintrag 


der  Schlüssel  in  den  sortierten 
Baum  erfolgt  erst  später.  Dies  kann 
durch  ein  kleines  Programm  ge¬ 
schehen,  ohne  daß  man  dabei  sein 
muß.  Die  Realisierung  dieser  Mög¬ 
lichkeit,  Satz  und  Schlüssel  getrennt 
voneinander  einzutragen,  ist  aller¬ 
dings  eine  Sache  des  Anwender¬ 
programms.  Auf  diese  Weise  ist  es 
dann  möglich,  zu  einem  Satz  mehr 
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1000  dim  dn$ ( 1 ) : dn$ ( 1 ) ="Dateiname" 

1010  !iopen,10,dn$U)  ,5:rem  Datei  öffnen 

1020  ! iread ,m, 1 ,df $ ( 1 ) ,rn,fe;rem  Datensatz  lesen 

1030  !iclose:rem  Datei  schließen 

1040  open4,4:rem  Druckerkanal  öffnen 

1050  for  i=l  to  n 

1060  pri nt#4 , df $ (i ) 

1070  next:rem  Felder  des  Satzes  drucken 

1080  close4:rem  Drucker kanal  schließen 

1090  openl5,8, 15:rem  Befehlskanal  der  Floppy  öffnen 

1100  pr i nt#15 , " i " : rem  Floppy  initialisieren 

1110  closel5:rem  Befehlskanal  der  Floppy  schließen 

1120  returnzrem  z.B.  nächsten  Satz  lesen 


Nach  jedem  Ausdruck  muß  die  Floppy  initialisiert  werden.  Diese  kleine  Routine  gibt  auch  einen  Ein¬ 
druck,  wie  die  ISM-Befehle  in  ein  Basicprogramm  eingebaut  werden. 


Software-Test 


C  64 


Schlüssel  einzutragen,  als  bei  der 
Definition  der  Datei  vorgesehen 
war. 

Datensätze  ändern 

Das  Ändern  eines  Satzes  ist  mög¬ 
lich,  indem  man  den  Satz  zunächst 
liest,  die  Änderungen  vornimmt, 
und  den  Satz  dann  mit  einem  spe¬ 
ziellen  Schreibbefehl  wieder  ein¬ 
trägt.  Auch  hier  ist  der  Komfort  von 
der  Qualität  des  Anwenderpro¬ 
gramms  abhängig.  Zusätzlich  ist  es 
möglich,  einen  Satz  komplett  mit  al¬ 
len  Schlüsseln,  nur  den  Satz,  nur  die 
Schlüssel,  oder  aber  nur  einzelne 
Schlüssel  des  Satzes  zu  löschen  (und 
gegebenenfalls  durch  neue  zu  er¬ 
setzen). 

Datensätze  suchen 

Sicher  am  wichtigsten  bei  einem 
Dateiverwaltungssystem  sind  die 
Möglichkeiten,  die  man  zur  Suche 
nach  Datensätzen  hat.  ISM  64  bietet 
hier  Befehle  zur  Suche  mit  voller 
Übereinstimmung  eines  Schlüssels 
mit  einem  Suchbegriff,  sowie  zur  Su¬ 
che  mit  verkürztem  Schlüssel  (zum 
Beispiel  Suche  nach  Sätzen,  bei  de¬ 
nen  ein  Schlüssel  mit  A  beginnt).  Zu¬ 
sätzlich  kann  über  die  Recordnum¬ 
mer  direkt  auf  einen  bestimmten 
Satz  zugegriffen  werden.  Eine  Su¬ 
che  mit  Joker  (zum  Beispiel  nach  ei¬ 
nem  »M??er«  ist  nicht  von  vornherein 
vorgesehen,  kann  aber  im  Anwen¬ 
derprogramm  leicht  realisiert  wer¬ 
den.  Außerdem  erlaubt  ISM  die  se¬ 
quentielle  Suche,  das  heißt,  man 
liest  den  ersten  Satz,  auf  den  ein  be¬ 
stimmtes  Kriterium  zutrifft,  und  kann 
dann  alle  weiteren  Sätze  lesen.  Die¬ 
se  Option  erlaubt  auch  das  schnelle 
Durchblättem  der  Datei.  Oft  findet 
man  so  einen  interessierenden  Satz 
am  schnellsten.  Das  Zeitverhalten 
bei  der  Suche  ist  noch  befriedi¬ 
gend,  die  Grenzen  der  Floppy  VC 
1541  worden  hier  mehr  als  offenbar. 
Ein  kleiner  Nachteil  ist  sicherlich, 
daß  vom  Programm  Groß-  und 
Kleinschreibung  unterschieden 
werden.  Wenn  man  nach  einem 
Mayer  mit  mayer  sucht,  dann  wird 
der  entsprechende  Satz  nicht  gefun¬ 
den. 

Drucken  von  Datensätzen 

Das  Drucken  von  Datensätzen 
wird  von  ISM  64  nicht  unterstützt,  die 
Druckroutine  ist  allein  Sache  des 
Anwenderprogramms.  Dies  sollten 
insbesondere  alle  C  64-Anwender, 
die  keinen  Commodore-Drucker 


haben,  nicht  bedauern.  Oft  muß 
man  ja  feststellen,  daß  bei  fertigen 
Programmlösungen  andere  als 
Commodore-Drucker,  wenn  über¬ 
haupt,  nur  unvollständig  unterstützt 
werden.  Die  Möglichkeit  einer  ganz 
individuellen  Druckroutine  ist  in  sol¬ 
chen  Fällen  eher  ein  Vorteil.  Aller¬ 
dings  muß  man  bei  der  Program¬ 
mierung  einiges  unbedingt  beach¬ 
ten  (siehe  unten). 


Die  Programmierung  von 
ISM  64 


Wie  bereits  oft  erwähnt,  ist  ISM 
nur  zusammen  mit  einem  Anwen¬ 
derprogramm  voll  nutzbar.  Wie  ein¬ 
fach  oder  schwierig  ist  nun  die  Er¬ 
stellung  eines  solchen  Programms? 
Ein  möglicher  Erfolg  beziehungs¬ 
weise  Mißerfolg  hängt  erstens  da¬ 
von  ab,  wie  gut  man  das  Basic  V  2.0 
beherrscht  und  zweitens,  wie  hoch 
die  eigene  Frustrationsschwelle 
liegt.  Wenn  man  gut  progr  -  -  mieren 
kann,  und  nicht  so  schnell  aufgibt, 
wird  man  sicherlich  zu  einer  befrie¬ 
digenden  Lösung  kommen.  Das  mit¬ 
gelieferte  Handbuch  ist  umfassend, 
auch  im  Detail.  Allerdings  ist  es 
nicht  einfach  zu  lesen.  Viele  Kapitel 
wird  auch  der  Fortgeschrittene 
mehrfach  studieren  müssen,  vieles 
wird  auch  erst  im  Laufe  der  Arbeit 
mit  dem  Programm  klar  werden. 
Hilfreich  ist  es,  daß  ein  fertiges, 
kommentiertes  Beispielprogramm 
auf  der  Diskette  mitgeliefert  wird. 
Dieses  Programm  kann  normal  geli¬ 
stet  werden,  und  ist  durchaus  nütz¬ 
lich  zur  Inspiration  bei  der  Pro¬ 
grammerstellung.  Leider  enthält  es 
mindestens  einen  programmtechni¬ 
schen  Fehler.  Ein  anderes,  mitgelie¬ 
fertes  Programm  erlaubt  die  Anlage 
beliebiger  Dateien.  Diese  Routine 
ist  sehr  brauchbar,  so  daß  keine  Not¬ 
wendigkeit  besteht,  eme  eigene 
Anlage-Routine  zu  schreiben. 

Wie  bereits  eingangs  ausgeführt, 
liegt  eine  der  Hauptstärken  des  ISM 
64  darin,  praktisch  unbegrenzt  lan¬ 
ge  Datensätze  verwalten  zu  können. 
Unter  anderem  darf  ein  einzelnes 
Feld  bis  zu  255  Zeichen  lang  sein. 
Leider  ist  im  Basic  2.0  eine  adäquate 
Eingabemöglichkeit  nicht  vorgese¬ 
hen.  Das  INPUT-Statement  erlaubt 
nur  Eingaben  bis  zu  real  78  Zeichen, 
wobei  keine  Kommata  Vorkommen 


dürfen.  Einziger  Ansatzpunkt  ist  das 
GET-Statement. 

Ein  besonderes  Kapitel  ist  der 
Ausdruck  von  Datensätzen.  Dies  ist 
wie  gesagt  allein  Sache  des  Anwen¬ 
derprogramms.  In  einem  solchen 
Programm  ist  nun  folgendes  zu  be¬ 
rücksichtigen:  Nach  jedem  Aus¬ 
druck  muß  die  Floppy  initialisiert 
werden.  Wird  die  Floppy  nach  ei¬ 
nem  Ausdruck  nicht  initialisiert, 
dann  führt  der  nächste  Dateizugriff 
zu  einem  Systemabsturz.  Da  dieser 
Effekt  auftrat: 

1.  Bei  einem  über  ein  Software- 
Interface  am  User-Port  angeschlos¬ 
senen  Epson-Drucker 

2.  bei  einem  normal  angeschlosse¬ 
nen  VC  1526  und 

3.  auch  wenn  überhaupt  gar  kein 
Drucker  angeschlossen  war,  scheint 
es  sich  um  ein  grundsätzliches  Pro¬ 
blem  zu  handeln,  dessen  Ursache 
wohl  in  der  Unzulänglichkeit  des  se¬ 
riellen  Busses  liegt.  Wie  programm¬ 
technisch  beim  Ausdruck  verfahren 
werden  kann,  ist  aus  dem  abge¬ 
druckten  Listing  ersichtlich.  Leider 
wird  in  der  ISM-Anleitung  nichts  von 
dieser  Problematik  erwähnt,  ob¬ 
wohl  dies  meiner  Ansicht  nach  un- 
bedingrt  notwendig  wäre.  Denn  was 
nutzt  einem  letztendlich  ein  Daten¬ 
verwaltungsprogramm,  wenn  man 
nicht  drucken  kann. 


Fazit 


ISM  64  ist  ein  sehr  leistungsfähi¬ 
ges  Programm  mit  professionel¬ 
ler  Konzeption.  Die  Notwendigkeit, 
ein  eigenes  Anwenderprogramm 
schreiben  zu  müssen,  kann  em  Vor¬ 
teil  oder  Nachteil  sein,  je  nach  Art 
des  geplanten  Einsatzes  und  den 
Kenntnissen  des  Anwenders.  Der 
Preis  von  zirka  140  Mark  ist  sicher¬ 
lich  günstig  zu  nennen. 

Am  Ende  sei  noch  erwähnt,  daß 
für  alle,  die  ISM  64  einsetzen  möch¬ 
ten,  —  ohne  ein  eigenes  Anwender¬ 
programm  zu  schreiben  —  die  Mög¬ 
lichkeit  besteht,  em  fertiges  Pro¬ 
gramm  mit  Anleitung  vom  Autor  die¬ 
ses  Berichtes  zu  beziehen.  Der  Au¬ 
tor  ist  auch  gerne  bereit,  anderen 
ISM-Anwendern  bei  aufgetretenen 
Problemen  im  Rahmen  seiner  Mög¬ 
lichkeiten  weiterzuhelfen.  Schrei¬ 
ben  sie  an  H.  J.  Schlicht,  Kirschgar- 
tenstr.  7,  6900  Heidelberg  1 

(H.  J.  Schlicht/rg) 
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Wollen  Sie  einen  gebrauchten  Computer  ver¬ 
kaufen  oder  erwerben?  Suchen  Sie  Zubehör? 
Haben  Sie  Software  anzubieten  oder  suchen 
Sie  Programme  oder  Verbindungen?  Die  FUND¬ 
GRUBE  von  64’er  bietet  allen  Computerfans  die 
Gelegenheit,  für  nur  DM  5, —  eine  private  Klein¬ 
anzeige  mit  bis  zu  5  Zeilen  Text  in  der  Rubrik 
Ihrer  Wahl  aufzugeben.  Und  so  kommt  Ihre  pri¬ 
vate  Kleinanzeige  in  die  FUNDGRUBE  der 
September-Ausgabe  (erscheint  am  17.  August 
84):  Schicken  Sie  Ihren  Anzeigentext  bis  zum 
25.  Juli  84  (Datum  des  Poststempels  und  Anzei¬ 
genschluß)  an  »64’er«.  Später  eingehende  Auf¬ 
träge  werden  in  der  Oktober-Ausgabe  (erscheint 


Am  besten  verwenden  Sie  dazu  die  vorbereitete 
Auftragskarte  am  Anfang  des  Heftes.  Bitte  be¬ 
achten  Sie:  Ihr  Anzeigentext  darf  maximal  5  Zei¬ 
len  mit  je  32  Buchstaben  betragen.  Überweisen 
Sie  den  Anzeigenpreis  von  DM  5,—  auf  das 
Postscheckkonto  Nr.  14199-803  beim  Post¬ 
scheckamt  mit  dem  Vermerk  »Markt  &  Technik, 
64’er«,  oder  schicken  Sie  uns  DM  5,—  als 
Scheck,  in  Briefmarken  oder  in  Bargeld.  Der 
Verlag  behält  sich  die  Veröffentlichung  längerer 
Texte  vor.  Kleinanzeigen,  die  entsprechend  ge¬ 
kennzeichnet  sind  oder  deren  Text  auf  eine  ge¬ 
werbliche  Tätigkeit  schließen  läßt,  werden  in 
der  Rubrik  »Gewerbliche  Kleinanzeigen«  zum 
Preis  von  DM  10,—  je  Zeile  Text  veröffentlicht. 
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"öne. 


One  on  One  wurde  als^^^^r  das  erste  und 
heißeste  Basketballprogramm  ^  angekündigt,  das  die 
Fans  von  Sportspielen  je  gesehen  haben.  Wir  haben 
uns  »One  on  One«  einmal  näher  betrachtet. 

Getestet  wurde  es  auf  dem  Commodore  64. 


Mun  zum  Spiel  (Preis  zirka  129 
Mark)  selbst.  Nachdem  man 
das  Programm  von  Diskette  (es 
gibt  keine  Kassettenversion)  m  den 
C  64  geladen  hat,  ertönt  zunächst 
die  mehrstimmige  Anfangsmelodie, 
und  die  beiden  Hauptakteure  Julius 
Erwing  und  Larry  Bird  demonstrie¬ 
ren  gekonnt  auf  dem  Bildschirm  das 
Spiegelgeschehen  (siehe  Bild).  Be¬ 
tätigt  man  den  Feuerknopf,  kommt 
man  in  das  Auswahlmenü.  Im  Ge¬ 
gensatz  zu  vielen  -  anderen  (Sport-) 
Spielen  können  hier  sehr  viele  Pa¬ 
rameter  vom  Spieler  selbst  einge¬ 
stellt  werden,  auch  wenn  das  eigent¬ 
liche  Spielgeschehen  gleich  bleibt, 

Lassen  Sie  sich  nicht 
austricksen 


Folgende  Details  können  verän¬ 
dert  werden: 

1.  Anzahl  der  Spieler  (ein  Spieler  ge¬ 
gen  den  Computer  oder  zwei  Spie¬ 
ler  gegeneinander) 

2.  Spielstärke  des  Computer- 
Gegners  (vom  Anfänger  bis  Profi) 

3.  Spielart: 

a)  Spiel  auf  Zeit  (2  bis  8  Minuten  pro 
Viertel) 

b)  Spiel  auf  Erreichen  einer  gewis¬ 
sen  Punktzahl  (ebenso  vom  Spieler 
einstellbar) 

4.  Festlegung,  welcher  Spieler  nach 


erfolgreichem  Korbwurf  den  Ball  er¬ 
hält. 

Nützlich  für  den  Spielablauf  ist  es 
ebenfalls,  daß  man  während  des 
Spiels  jederzeit  in  das  Äuswahlme- 
nü  zurückkehren  kann,  um  gegebe¬ 
nenfalls  einige  Änderungen  vorzu¬ 
nehmen  und  das  unterbrochene 
Spiel  dann  fortzusetzen.  Nachdem 
man  dies  alles  überstanden  hat, 
kann  man  anfangen  zu  spielen.  Es 
handelt  sich  bei  One  on  One  nicht 
um  ein  Spiel  zweier  Mannschaften 
auf  zwei  Körbe,  sondern  um  ein 
Spiel  Mann  gegen  Mann  auf  einen 
Korb.  Doch  nichtsdestotrotz  erlebt 
man  nun  eine  (fast)  perfekte  Simula¬ 
tion  des  Basketballspiels.  Die  Bewe¬ 
gungen  der  Spieler,  zum  Beispiel 
beim  Sprungwurf,  sind  täuschend 
den  echten  Bewegungen  der  Spie¬ 
ler  im  Basketballsport  nachempfun¬ 
den.  Auch  die  sonstigen  Feinheiten 
entsprechen  den  Original-Basket¬ 
ballregeln  (bis  auf  einige  Ausnah¬ 
men).  So  besteht  die  Möglichkeit, 
den  Gegner  zu  »foulen«;  in  diesem 
Fall  erscheint  der  Schiedsrichter  auf 
dem  Bildschirm  und  pfeift  das  Spiel 
ab.  Je  nach  Art  des  Fouls  wird  einem 
zum  Beispiel  ein  Freiwurf  zugespro¬ 
chen.  Eine  weitere  Besonderheit  ist, 
daß  man  den  Korb  »zerschmettern« 
kann.  Die  heruntergefallenen  Teile 
werden  dann  vom  Hilfspersonal  auf¬ 
gekehrt.  Der  Spielstand,  die  noch 
verbleibende  Spielzeit  und  die  An¬ 


C  64 


zahl  der  von  den  Spielern  begange¬ 
nen  Fouls  werden  am  oberen  linken 
Bildschirmrand  angezeigt.  Der 
Kraftverlust,  der  zum  Beispiel  durch 
dauerndes  Springen  eintritt,  wird 
mittels  zwei  waagrechten  Balken  am 
unteren  Rand  des  Bildschirms  dar¬ 
gestellt. 

Je  größer  der  Kraftverlust  ist,  de¬ 
sto  niedriger  springt  der  jeweilige 
Spieler.  Dies  ist  vor  allem  beim  Ver¬ 
hindern  eines  Korbwurfs  des  Geg¬ 
ners  von  Bedeutung. 

Die  Regelung,  daß  ein  Spieler  den 
Ball  nur  24  Sekunden  lang  ohne  ver¬ 
suchten  Korbwurf  führen  darf,  ist  für 
einen  flüssigen  Spielablauf  sehr 
wichtig.  So  kommt  es  fast  durchge¬ 
hend  zu  packenden  Szenen  vor  dem 
Korb.  Ein  weiteres  wichtiges  Detail, 
das  für  das  Spiel  von  sehr  großer  Be¬ 
deutung  ist,  ist  die  Möglichkeit, 
durch  kurzen  Druck  auf  den  Feu¬ 
erknopf  den  Spieler  um  seine  eige¬ 
ne  Achse  drehen  zu  lassen.  Obwohl 
dieses  Programm  von  den  Software¬ 
künstlern  »Electronic  Arts«  stammt, 
die  für  ihre  perfekten  Programme 
bekannt  sind,  gibt  es  auch  einige 
Punkte  zu  bemängeln.  So  kann  zum 
Beispiel  die  Weite  des  Wurfs  nicht 
beeinflußt  werden.  Der  Ball  bewegt 
sich  automatisch  in  Richtung  Korb, 
wobei  die  Wahrscheinlichkeit  eines 
Treffers  von  der  Entfernung  zum 
Korb  abhängt. 


Ein  fast  perfektes 
Programm 

Trotz  einiger  weniger  Kritikpunk¬ 
te  muß  man  diesem  Spiel  eine  sehr 
hohe  Qualität  bescheinigen.  Elek- 
tronic  Arts  ist  es  wieder  einmal  ge¬ 
lungen,  eine  gute  Spielidee  m  ein 
(fast)  perfektes  Programm  umzuset¬ 
zen.  Obwohl  nur  auf  einen  Korb  ge¬ 
spielt  wird,  bereitet  dieses  Pro¬ 
gramm  dem  Benutzer  eine  lang  an¬ 
dauernde  Spielfreude,  da,  und  dies 
ist  sehr  wichtig,  der  Erfolg  größten¬ 
teils  vom  Können  des  Spielers  ab¬ 
hängt. 

(Martin  Gaksch/gk) 
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Bei  »Gruds  in  Space«  überneh¬ 
men  Sie  als  Spieler  die  Rolle  ei¬ 
nes  Raumschiffkommandanten, 
von  dessen  Geschick  die  Zukunft 
der  Menschheit  abhängt.  Nach  Mei¬ 
nung  des  Oberkommandos  der  Ver¬ 
einigten  Galaktischen  Flotten  sind 
Sie  als  einziger  in  der  Lage,  unsere 
im  All  gestrandeten  Kriegsschiffe 
mit  lebenswichtigem  Treibstoff  zu 
versorgen.  Gelingt  dies  nicht,  so  ist 
der  Niedergang  unserer  Zivüisation 
gewiß, 

Das  allein  sollte  Grund  genug 
sein,  diesen  schwierigen  Auftrag  an¬ 
zunehmen.  Er  führt  uns  auf  eine  Rei¬ 
se  durch  das  Sonnensystem  in  de¬ 
ren  Verlauf  es  viele  knifflige  Rätsel 
zu  lösen  gilt.  Wie  bereits  im  Titelbild 
des  Spiels  zu  erkennen,  werden  wir 
dabei  auch  die  Bekanntschaft  der 
schon  sprichwörtlichen  kleinen  grü¬ 
nen  Männchen  aus  dem  Weltall  — 
der  sogenannten  »Gruds«  —  ma¬ 
chen.  Es  ist  selbstverständlich  mehr 
als  ein  Zufall,  daß  eben  diese 
»Gruds«  zugleich  Werbemaskott¬ 
chen  von  Sirius  Software  sind. 

Obwohl  man  eine  derartige 
Schleichwerbung  als  eher  störend 
empfinden  könnte,  ist  hier  genau 
das  Gegenteil  der  Fall.  Schon  allein 
durch  ihre  urkomische  äußere  Er¬ 
scheinung  vermögen  die  »Gruds« 
viel  zum  Spielwitz  dieses  Abenteu¬ 
ers  beizutragen. 


Auch  eine  andere  Besonderheit 
des  Programms  sticht  ins  Auge:  Im 
Gegensatz  zu  den  bishe  büchen 
starren  Grafiken  wurden  bei  »Gruds 
in  Space«  die  Büder,  die  den  Spieler 
durch  die  Handlung  führen,  mit 
Bewegungs-  und  Toneffekten  ange¬ 
reichert.  So  kann  man  zum  Beispiel 
direkt  sehen,  wie  ein  angriffslusti¬ 
ges  Monster  siegessicher  zwinkert 
oder  wie  in  einem  Sumpf  gebiet  Gas¬ 
blasen  aus  dem  Boden  steigen.  Auf¬ 
grund  der  aufwendigen  Grafik  be¬ 
nötigt  das  Programm  aber  auch  sehr 
wenig  erklärenden  Text,  so  daß  man 
selbst  mit  bescheidenen  Englisch¬ 
kenntnissen  selten  auf  ein  Wörter¬ 
buch  zurückgreifen  muß. 


»Gruds  in  Space«  gibt  es  auch  für 
Atari-  und  Apple-Computer,  benö¬ 
tigt  aber  in  jedem  Fall  eine  Disket¬ 
tenstation.  Für  den  C  64  kostet  das 
Spiel  zirka  129  Mark  und  ist  überall 
im  Computerfachhandel  erhältlich. 

(F.O.  Malisch) 


Druckfehlerteufelchen 

Betrifft:  Namensgebung  für  den  Druckfehlerteufel 
Eine  recht  aussichtlose  Sache!  Der  Druckfehler  ist  nämlich  ein  sehr 
wandelbares  Wesen.  Kaum  hat  man  ihn  in  Gestalt  eines  Dreckfuhlers  er¬ 
wischt,  kommt  einem  dieses  Fuhrdreckel  in  der  Verkleidung  als  Dreck- 
hufler  wieder  aus.  Oft  wird  das  Durchferkel  auch  zur  Furchdrelke. 

Der  Ulkferch  bietet  sich  scheinheilig  als  Druckhelfer  an  und  wird  da¬ 
bei  unversehens  zum  Druckhefler,  dieser  Krechdeufl. 

Gelegentlich  versteckt  sich  der  Drehflucker  hinter  dem  Namen  Krech- 
fluder. 

In  Wahrheit  aber  ist  der  Frechdruckei  aber  ein  ganz  normaler  Huf- 
dreckler. 

Mit  rfuendiclhne  Gürssne! 
PS:  Entschuldigen  Sie  bitte  meine  Fluckdreher,  wollte  drucken:  meine 
Herfdruckel!  Giselbert  Kosmala 
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Alle  Welt  blickt  in  diesen  Tagen 
gespannt  nach  Los  Angeles,  wo 
die  olympischen  Sommerspiele 
stattfinden.  Dieses  sportliche  Groß¬ 
ereignis  hat  sich  auch  auf  die  Spiele- 
Szene  für  den  Commodore  64  aus¬ 
gewirkt.  Das  amerikanische  Softwa¬ 
re-Haus  »Epyx«  präsentiert  mit  »Sum¬ 
mer  Games«  ein  Sport-Spiel,  das  ei¬ 
ne  Goldmedaille  verdient. 

Am  Anfang  stehen  zwei  Gags: 
Nach  Einladen  des  Programms  er¬ 
freut  eine  farbenprächtige  Eröff¬ 
nungszeremonie  das  Auge  des  Zu¬ 
schauers,  die  einen  Vorgeschmack 
auf  die  durchgehend  hervorragen¬ 
de  Grafik  von  »Summer  Games«  lie¬ 
fert.  Bevor  die  Medaillen-Hatz  los¬ 
geht,  darf  sich  jeder  Spieler  noch  ei¬ 
nes  von  16  Ländern  heraussuchen, 
woraufhin  die  entsprechende  Natio¬ 
nalhymne  aus  dem  Lautsprecher 
scheppert. 

Nun  geht’s  richtig  los:  Nachdem 
der  Computer  ein  knappes  Minüt- 
chen  nachgeladen  hat,  treten  die 
Tele-Athleten  zum  Stabhochsprung 
an.  Der  Anfänger  braucht  hier 


Wenn  Sie 
»aktiv« 

an  den  olympischen 
Wettkämpfen  beteiligen  wollen: 
»Summer  Games«  macht's  möglich. 


schon  eine  Menge  Übung,  um  unter 
dem  Jubel  der  Zuschauer  die  Stan¬ 
ge  erfolgreich  zu  überqueren.  Ti¬ 
ming  ist  hier  alles.  Doch  auf  zur 
nächsten  Disziplin:  »Platform  Di- 
ving«  ist  angesagt.  Mehr  oder  weni¬ 
ger  elegant  segeln  die  Turmsprin¬ 
ger  ins  Wasser,  wobei  man  durch 
entsprechende  Joystick-Bewegun-  - 
gen  vier  verschiedene  Kunstfiguren 
verursachen  kann.  Produziert  man 
eine  Bauchlandung,  vergibt  der 
Computer  schon  mal  eine  0,0  als  No¬ 
te.  Kondition  ist  bei  der  400  Meter 
Staffel  gefragt:  Hier  muß  man  seine 
Kräfte,  die  in  Form  eines  Balkens  am 
unteren  Bildschirmrand  dargestellt 
werden,  gut  einteilen.  Wilder  geht 
es  beim  100  Meter-Lauf  zu.  Wer  den 
Joystick  am  schnellsten  im  Kreise 
dreht,  kann  eine  Zeit  unter  10  Sekun¬ 
den  erreichen. 

Nach  den  Laufwettbewerben 
geht’s  dann  mit  der  Gymnastik  wei¬ 
ter.  Hier  ist  viel  Training  erforder¬ 
lich,  um  eine  junge  Dame  über  ein 


Pferd  hüpfen  zu  lassen,  ohne  daß  sie 
bei  der  Landung  auf  die  Nase  fällt, 
was  bei  den  Mitspielern  in  der  Re¬ 
gel  ein  hämisches  Grinsen  hervor¬ 
ruft.  Bei  den  beiden  Schwimm- 
Wettbewerben  ist  dann  wieder  Ti¬ 
ming  gefragt,  da  die  Schwimmer  nur 
Tempo  machen,  wenn  man  den  Feu¬ 
erknopf  in  regelmäßigen  Interval¬ 
len  betätigt.  Abschließend  ist  Ton¬ 
taubenschießen  angesagt.  Um¬ 
rahmt  von  einer  reizvollen  Land¬ 
schaft  müssen  möglichst  viele  von  25 
umherzischenden  Tontauben  ge¬ 
troffen  werden.  Zu  guter  Letzt  gibt 
der  Computer  den  Endstand  be¬ 
kannt  und  spielt  noch  einmal  die 
Hymne  des  Olympiasiegers. 

»Summer  Games«  ist  eine  rundum 
gelungene  Heim-Olympiade,  die 
mich  spontan  begeistert  hat.  Eine 
Diskette  (Preis:  zirka  109  Mark),  die 
man  auch  nach  vielen  Stunden  ger¬ 
ne  wieder  spielt. 

(Heinrich  Lenhardt) 
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Förth  Handbuch 

Grundlagen  -  Einführung  -  Beispiele 

Dieses  Buch  ist  eher  dem 
Forth-Neuling  als  dem  Profi  zu 
empfehlen,  denn  es  bietet  eine 
recht  ausführliche  Beschrei¬ 
bung  der  Grundfunktionen  von 
Forth.  Eindeutiger  Schwerpunkt 
dabei  ist  das  praktische  Arbei¬ 
ten  mit  Forth,  also  die  Anwen¬ 
dung  der  Sprache.  Zwar  befaßt 
sich  ein  Kapitel  etwas  näher  mit 
den  Grundlagen  der  Realisie¬ 
rung  von  Forth  auf  einem  Com¬ 
puter,  es  werden  wichtige  Be¬ 
griffe  wie  das  Forth  Wörterbuch, 
Compilerorganisation  und  Spei¬ 
cherverwaltung  erläutert,  doch 
bildet  dies  nicht  den  Kern  des 
Buches.  Dem  fortgeschrittenen 
Forth-Programmierer  wird  da¬ 
mit  also  nicht  viel  neues  gebo¬ 
ten. 

Dafür  erhält  der  Einsteiger  ei¬ 
ne  recht  gründliche  Einführung 
in  das  Arbeiten  mit  Forth.  Das  er¬ 
ste  Kapitel  beschreibt  die 
grundlegenden  Sprachelemen- 
te.  Anhand  vieler  Beispiele  wird 
der  Leser  zunächst  mit  einer  ty¬ 
pischen  Eigenschaft  von  Forth 
vertraut  gemacht,  dem  Rechnen 
mit  umgekehrter  polnischer  No¬ 
tation  (UPN),  auch  postfix  Nota¬ 
tion  genannt.  Einige  Grund¬ 
kenntnisse  in  der  Programmie¬ 
rung  sind  dabei  durchaus  nütz¬ 
lich.  So  sollte  man  schon  wissen, 
was  ein  Stapelspeicher  oder 
Stack  ist,  um  mit  Forth  keine 
Schwierigkeiten  zu  bekommen. 

Nach  den  ersten  Experimen¬ 
ten  mit  Forth  geht  es  bald  voran 
zur  Definition  eigener  Forth- 
Worte.  Der  Leser  lernt  hier 
schon  eine  Reihe  von  oftmals 
recht  trickreichen  Möglichkei¬ 
ten  kennen,  Wortdefinitionen 
sinnvoll  einzusetzen.  Das  erste 
Kapitel  schließt  mit  einem 
umfangreichen  Beispiel-  und 
Übungsteü. 

Der  folgende  Abschnitt  über 
Programmschleifen  und  Ver¬ 
zweigungen  stellt  die  entspre¬ 
chenden  Kontrollworte  wie  DO 
...  LOOP,  IF  ...  ELSE  ...  ENDIF 
oder  BEGIN  ...  WHILE  ...  REPE- 
AT  vor  und  verdeutlicht  anhand 
ausführlich  erklärter  Beispiele 
die  Funktionsweise.  Schließlich 
werden  die  neugewonnenen  Er¬ 
kenntnisse  zur  Programmierung 
einiger  kleinerer  Programme 
benutzt. 

Es  folgen  Kapitel  über  das  Ar¬ 
beiten  mit  doppeltgenauen  Zah¬ 
len  und  über  die  Formatierung 
von  Zahlenausgaben,  über  den 


Texteditor  und  die  virtuelle 
Speicherverwaltung  von  Forth. 
Anhand  von  Programmbeispie¬ 
len  werden  Forth-Versionen  für 
verschiedene  Homecomputer 
vorgestellt.  Das  Buch  enthält 
auch  vier  größere  Programme, 
nämlich  eine  Adressenkartei,  ei¬ 
ne  kleine  Datenbank,  eine  kom¬ 
plette  Lagerverwaltung  und  na¬ 
türlich  auch  ein  Spielprogramm. 

Im  Anhang  findet  man  unter 
anderem  Vorschläge  zur  Stan¬ 
dardisierung  der  Namensge¬ 
bung  und  eine  Zusammenstel¬ 
lung  aller  im  Buch  behandelten 
Forth-Worte.  Außerdem  ist  eine 
Forth-Referenzkarte  abge¬ 
druckt,  die  in  übersichtlich  ge¬ 
ordneter  Weise  alle  wichtigen 
Worte  mit  einer  Kurzbeschrei¬ 
bung  enthält. 

Die  leicht  verständliche  Dar¬ 
stellungsweise  und  die  vielen 
Beispiele  machen  das  Buch  zur 
empfehlenswerten  Lektüre  für 
den  Forth-Einsteiger.  (ev) 

E.  Flöget;  Forth  Handbuch,  196  Seiten,  W. 
Hofacker,  Holzkirchen  1982,  ISBN 
3-911682-88-6,  Preis  49,00  Mark. 

Grafik  mit  dem  VC  20 

Schluß  mit  den  eintönigen  Pro¬ 
grammen!  In  der  Regel  sind  ja 
alle  Programme  (meine  auch!) 
ohne  jede  grafische  Gestaltung 
geschrieben.  Dabei  wäre  es 
.doch  sicher  wichtig,  auch  ein¬ 
mal  für  Abwechslung  zu  sorgen. 
Der  Programmvorspann  und 
Zwischenausgaben  bieten  sich 
förmlich  dafür  an.  Mit  Hilfe  des 
vorliegenden,  aus  dem  Ameri¬ 
kanischen  übersetzten  Buchs 
dürfte  das  keine  Schwierigkei¬ 
ten  mehr  machen! 

Für  die  im  Buch  vorgestellten 
Programme  sind  die  Befehle 
des  Super-Expanders  nötig,  wo¬ 
rauf  allerdings  verschämt  erst 
im  Inneren  des  Buches  hinge¬ 
wiesen  wird.  Das  Buch  beginnt 
mit  einer  gründlichen  Behand¬ 
lung  der  Theorie  des  Zeichnens 
in  Farbe.  Besprochen  werden 
die  Betriebsarten  »Multicolour« 
und  »hohe  Auflösung«.  Für  beide 
Betriebsarten  wird  konkret  er¬ 
klärt,  wie  durch  POKE-  und 
PEEK-Befehle  die  Farbe  der  Au¬ 
ßenumrandung,  die  Hinter¬ 
grundfarbe  und  die  Vorder¬ 
grundfarbe  für  das  darzustel¬ 
lende  Zeichen  sowie  gegebe¬ 
nenfalls  noch  eine  der  16  Hilfs¬ 
farben  nach  eigenen  Wünschen 
verändert  werden  kann.  Ein  wei¬ 
tes  Experimentierfeld! 

Für  Lehrprogramme,  Simula¬ 
tionen  und  Computerspiele  wer¬ 


den  dann  zahlreiche  wertvolle 
Anregungen  gegeben.  Beispiel¬ 
haft  seien  erwähnt:  Sektordia¬ 
gramm,  Zeichengenerator, 
Maßstabänderungen  sowie 
Drehen  und  Verschieben.  Ob¬ 
wohl  die  Programme  sich  durch 
viele  REM-Zeilen  beinahe  selbst 
erklären,  wird  der  übersichtli¬ 
che  Programmaufbau  doch 
noch  genau  erklärt.  Wegen  der 
3  mm  großen  Schrift  bei  den  Li- 
stings,  die  für  ein  Programm  nur 
etwa  ein  bis  zwei  Seiten  lang 
sind,  ist  das  Abtippen  ganz  ein¬ 
fach.  Immer  wieder  wird  der  Le¬ 
ser  aufgefordert,  die  vorgestell¬ 
ten  Routinen  nach  eigenen  Wün¬ 
schen  abzuändem. 

Leider  konnte  das  Kapitel 
»Dreidimensionale  Darstellun¬ 
gen«  von  mir  nicht  nachvollzo¬ 
gen  werden.  Laut  Buch  benöti¬ 
gen  die  Programme  »zusätzliche 
zu  der  Super-Expander- 
Kassette...  noch  die  VC  20  Ma¬ 
ster  Control-Tafel  und  eine 
8-KByte-Speicherkassette«.  Mit 
diesem  Programmen  könnte 
man  dreidimensionale  Figuren 
in  zu  wählenden  Maßstäben  aus 
verschiedenen  Richtungen  und 
mit  gelöschten  verdeckten  Kan¬ 
ten  darstellen. 

Nach  den  bisherigen  Veröf¬ 
fentlichungen  müßten  die  in  den 
Kapiteln  1  bis  6  dargestellten 
Programme  auch  auf  dem  Com- 
modore  264  lauffähig  sein.  Das 
empfeK  n  jwerte  Buch  erlebt 
dann  sicher  noch  eine  Renais¬ 
sance.  (Dieter  Hein) 

Info:  Nick  Hampshire:  Grafik  mit  dem  VC 
20,  eine  Einführung  mit  38  farbigen  Grafik- 
Programmen,  204  Seiten,  Markt  &  Technik 
Verlag  AG,  Haar,  1984,  ISBN  3-922120-82-2, 
Preis  38  Mark. 

Das  Commodore  64  Buch 

Band  4:  Ein  Leitfaden  für  Sy¬ 
stemprogrammierer 

Wann  denkt  bloß  mal  einer 
von  den  klugen  Leuten,  die  die 
schlauen  Bücher  schreiben,  an 
den  blutigen  Anfänger,  der 
wirklich  noch  keine  Ahnung  hat? 
Nehmen  wir  an,  ein  C  64-Be- 
sitzer  mit  den  vorausgesetzten 
Basic-Kenntnissen  hat  sich  den 
Leitfaden  für  Systemprogram¬ 
mierer  gekauft,  weü  er  auf  dem 
Rückumschlag  gelesen  hat,  das 
Buch  beinhalte  eine  »Einführung 
in  die  Maschinenprogrammie¬ 
rung«.  Nehmen  wir  weiter  an,  er 
habe  gewissenhaft  Seite  für  Sei¬ 
te  durchgearbeitet.  Auf  Seite  60 
findet  er  dann  endlich  nach  viel 
Theorie  das  erste  Beispiel  für 
ein  Maschinenprogramm  (16-Bit- 
Addition).  Dank  der  vorzügli¬ 
chen  Erklärungen  auf  den  vor- 
hergegangenden  Seiten  und 
den  Erläuterungen  zum  Pro¬ 
gramm  kann  er  es  (bis  auf  den 
Befehl  WOR,  der  erst  auf  Seite 
238  erklärt  wird)  auch  verstan¬ 
denhaben.  Aber  wie  kommt  das 
Programm  in  den  C  64?  Schnell 
stellt  er  fest,  daß  bloßes  Eintip¬ 
pen  nicht  geht,  Drei  Möglichkei¬ 
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ten  für  die  Fortsetzung  bleiben 
ihm: 

1.  Er  gibt  frustriert  auf  (das  wäre 
schade!). 

2.  Mit  Hilfe  anderer  Bücher 
oder  fortgeschrittener  Freunde 
knackt  er  die  Nüsse  (das  kann 
eigentlich  nicht  das  Ziel  der  Au¬ 
toren  sein!!). 

3.  Er  liest  weiter,  über  Halbver¬ 
standenes  hinweg,  und  findet 
dann  auf  den  nächsten  200  Sei¬ 
ten  mühsam  nach  vielen  Irrtü- 
mern  doch  noch  zum  Ziel.  (Ler¬ 
nen  muß  schwer  sein!?) 

Unbedingt  müßte  daher  an  je¬ 
der  Stelle  —  wahrscheinlich  in 
Form  eines  Rezeptes:  »Man  neh¬ 
me..«  —  eine  kurze  Anleitung  ge¬ 
geben  werden,  wie  das  Pro¬ 
gramm  einschließlich  Einbin¬ 
dung  in  ein  Basicprogramm  auf 
dem  C  64  realisiert  werden 
kann.  Die  Autoren  brauchten  be¬ 
stimmt  kein  schlechtes  Gewis¬ 
sen  zu  haben,  wenn  sie  dem  Le¬ 
ser  hier  eine  vorweggenomme¬ 
ne  Kurzanleitung  geben  wür¬ 
den! 

Das  beschriebene  methodi¬ 
sche  Manko  ist  um  so  bedauerli¬ 
cher,  als  es  sich  sonst  um  ein  aus¬ 
gezeichnetes,  empfehlenswer¬ 
tes  Buch  handelt.  Hervorzuhe¬ 
ben  sind  dabei  die  Kapitel  3  und 
5.  In  sehr  geschickter  Weise  er¬ 
klären  die  Autoren  dabei  Schritt 
für  Schritt  einen  in  Basic  ge¬ 
schriebenen  Assembler  und  ei¬ 
nen  Disassembler.  Da  der  gut  zu 
verstehende  Assembler  jedoch 
noch  recht  langsam  arbeitet, 
werden  im  Kapitel  4  einige 
Basic-Unterprogramme  durch 
Maschinenprogramme  ersetzt. 
Der  Leser  wird  zu  weiteren  Ver¬ 
besserungen  angeregt.  Nachzu¬ 
tragen  bleibt,  daß  im  Kapitel  1 
der  6510  ausführlich  erklärt  und 
sein  gesamter  Befehlsvorrat  in 
alphabetischer  und  numeri¬ 
scher  Reihenfolge  besprochen 
wird, 

Dem  Benutzer  des  Buches  ist 
unbedingt  anzuraten,  auch  die 
zum  Buch  gehörende  Diskette 
(Bestellnummer  MT  598  für  58 
Mark)  zu  erwerben.  Wer  möchte 
schon  seitenlange  Programme 
—  auch  wenn  diese  erfreulich  le¬ 
serlich  gedruckt  wurden  —  ab¬ 
tippen.  Er  erhält  damit  sofort  ei¬ 
nen  recht  brauchbaren  Assem¬ 
bler,  mit  dem  sich  nach  kurzer 
Eingewöhnung  gut  arbeiten  läßt. 

Dem  Verlag  und  den  Autoren 
muß  aus  der  Sicht  des  Rezensen¬ 
ten  empfohlen  werden,  die  oben 
gewünschte  narrensichere  Kurz¬ 
anleitung  für  das  Arbeiten  mit 
Maschinenprogrammen  und  ei¬ 
nen  Texteditor  aufzunehmen! 
Der  Texteditor  hätte  auch  auf 
der  Diskette  noch  Platz! 

(Dieter  Hein) 

Info:  Hans  Lorenz  Schneider/Wemer 
Eberl:  Das  Commodore  64  Buch,  Band  4 
»Ein  Leitfaden  für  Systemprogrammierer«, 
200  Seiten,  Markt  &  Technik  Verlag  AG, 
Haar  1984,  ISBN  3-922120-70-9;  Preis  38 
Mark 
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Grafik-Grundlagen 


G  64-Kurs 


Nachdem  wir  sie 
in  den  ersten  vier  Folgen 
kaum  erwähnt  haben,  sind  sie  heute  dran: 
die  Sprites.  Sie  müssen  einfach  in  jeder  Reise  durch 
die  Grafik  unseres  C  64  auftauchen. 


der  Grafik 


Jetzt  müssen  wir  diese  Zeichnung 
in  eine  Form  bringen,  die  unser 
Computer  versteht,  also  in  Bytes. 
Wie  auch  schon  bei  den  Buchstaben 
und  der  hochauflösenden  Grafik 
sind  hier  wieder  gesetzte  und  ge¬ 
löschte  Bits  in  den  Bytes  die  Anzeige 


Sprite  heißt  auf  deutsch  soviel 
wie  »Kobold«,  »Gespenst«.  Wie 
richtige  Kobolde  können  sie  so¬ 
wohl  in  Dornröschens  Schloß  (also 
im  Bit-Map-Modus)  als  auch  außer¬ 
halb  (nämlich  im  Normalmodus) 
über  den  Bildschirm  geistern  —  an¬ 
scheinend  dabei  allen  bisher  ge¬ 
lernten  Regeln  über  die  Grafik  wi¬ 
dersprechen.  Wir  werden  in  dieser 
Folge  zwar  lernen,  mit  ihnen  umzu¬ 
gehen,  sogar  sie  zu  beherrschen  — 
aber  ihre  genaue  Funktion  und  Her¬ 
kunft  wird  weiterhin  im  dunkeln 
bleiben:  Meines  Wissens  gibt  es 
noch  kein  Listing  des  Sprite- 
unterstützenden  Maschinenpro¬ 
gramms,  das  wohl  im  tiefsten  Dunkel 
des  VIC-II-Chip  verborgen  liegt: 
Denn  der  VIC-II-Chip  belegt  ja  die 
Speicherplätze  53248  bis  54271.  Im 
erreichbaren  Teil  dieses  Zauber¬ 
schlosses  (53248  bis  53294)  liegen 
die  bisher  viel  von  uns  begangenen 
47  Register  (siehe  1.  Folge,  Tabelle 
1),  aber  wo  ist  die  Geheimtür  zu  den 
anderen  978  Bytes?  Alles  recht  ro¬ 
mantisch,  werden  Sie  sagen.  Nun  — 
ganz  so  mysteriös  ist  die  Sache  nun 
auch  wieder  nicht,  wie  uns  der  Na¬ 
me  Sprite  =  Kobold,  Gespenst  ein- 
reden  will.  Gehörig  entschleiert 
wird  das  Geheimnis  schon  durch 
den  anderen  englischen  Ausdruck 
für  diese  Dinger:  MOBs.  Das  bedeu¬ 
tet:  Movable  Object  Blocks,  also  be¬ 
wegliche  Blöcke  von  Objekten  (Bil¬ 
dern,  Darstellungen).  Sie  werden 
sehen,  wenn  wir  mit  dem  MOBs  um¬ 
gehen  können,  ist  das  verbleibende 
Geheimnis  eigentlich  keines  mehr, 
sondern  verwandelt  sich  nur  noch  in 
eine  Herausforderung  für  einen 
Maschinensprache-Programmierer. 


Wir  werden  zunächst  einmal 
schöpferisch  tätig  und  erschaffen 
ein  Sprite.  Der  erste  Schritt  dazu  ist 
kreativ:  Wie  soll  das  Ding  ausse- 
hen?  Da  bietet  sich  ja  zum  Beispiel 
der  aus  der  Magie  bekannte  Dru¬ 
denfuß  an,  auch  Pentagramm  ge- 
>eßlich  diese 
vvollen  (siehe 

Büd  1). 


für  »Punkt  sichtbar«  oder  »Punkt 
nicht  sichtbar«.  Das  im  VIC-II-Chip 
organisierte  Sprite-Programm 
nimmt  die  Bytes  in  der  im  Bild  2  ge¬ 
zeigten  Anordnung  wahr. 

Den  so  gebildeten  Block  verwaltet 
es  in  genau  dieser  Anordnung  als 
ein  Sprite.  Deswegen  müssen  wir 
uns  nun  die  Mühe  machen,  unser 
Pentagramm  in  so  ein  Bit-Raster  ein- 


Zeile 

Byte 

binär 

dez. 

Zeile 

Byte 

binär 

dez. 

0 

00000000 

4 

33 

00000001 

1 

1 

1 

00011000 

24 

12 

34 

10000001 

129 

2 

00000000 

0 

35 

10000000 

128 

3 

00000000 

0 

36 

00000001 

1 

2 

4 

00011000 

24 

13 

37 

11000011 

195 

5 

00000000 

0 

38 

10000000 

128 

6 

00000000 

0 

39 

00000001 

1 

3 

7 

00111100 

60 

14 

40 

10111101 

189 

8 

00000000 

0 

41 

10000000 

128 

9 

00000000 

0 

42 

oooooon 

3 

4 

10 

00100100 

36 

15 

43 

00011000 

24 

11 

00000000 

0 

44 

11000000 

192 

12 

00000000 

0 

45 

oooooon 

3 

5 

13 

01100110 

102 

16 

46 

00111100 

60 

14 

00000000 

0 

47 

11000000 

192 

15 

00000000 

0 

48 

00000110 

6 

6 

16 

01100110 

102 

17 

49 

11000011 

195 

17 

00000000 

0 

50 

01100000 

96 

18 

00000000 

0 

51 

00000111 

7 

7 

19 

01100110 

102 

18 

52 

10000001 

129 

20 

00000000 

0 

53 

11100000 

224 

21 

00111111 

63 

54 

00000110 

6 

8 

22 

11111111 

255 

19 

55 

00000000 

0 

23 

11111100 

252 

56 

01100000 

96 

24 

00011000 

24 

57 

00001100 

12 

9 

25 

01000010 

66 

20 

58 

00000000 

0 

26 

00011000 

24 

59 

00110000 

48 

27 

00001100 

12 

60 

00000000 

0 

10 

28 

11000011 

195 

21 

61 

00000000 

0 

29 

00110000 

48 

62 

00000000 

0 

30 

00000110 

6 

11 

31 

10000001 

129 

Tabelle  1.  Kennzahlen 

32 

01100000 

96 

für  die  Berechnung  von  Sprites 
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zufügen.  Das  ist  in  Bild  3  geschehen. 

Nun  muß  dieses  Bild  in  einen  Zah¬ 
lencode  übersetzt  werden.  Überall 
dort,  wo  ein  Bitfeld  ausgefüllt  ist, 
steht  bei  der  Binärzahl  eine  1,  sonst 
eine  Null.  Demnach  ergeben  sich 
die  Kennzahlen  in  der  Tabelle  1. 

Dieser  Wust  an  Zahlen  legt  also 
unser  Sprite  fest.  Diese  doch  recht 
aufwendige  Rechnerei  und  Planerei 
ist,  wenn  sie  aufmerkamer  Leser 
von  Computerliteratur  sind  —  meist 
nicht  mehr  nötig.  Obwohl  es  sicher 
gut  ist,  das  Planen  eines  MOBs  auch 
von  Hand  zu  beherrschen  (wie  wir 
jetzt!),  kann  man  sich  die  Arbeit 


doch  mächtig  erleichtern  durch  Ein¬ 
tippen  eines  der  vielen  Sprite- 
Editor-Programme,  die  es  in  fast  al¬ 
len  Fachzeitschriften  wie  Sand  am 
Meer  gibt.  Weil  hier  nicht  der  1001. 
Sprite-Editor  abgedruckt  werden 
soll,  dient  das  anliegende  Pro¬ 
gramm  »Sprity«  anderen  Zwecken. 
(Ein  nettes  kurzes  Listing  von  H. 
Kunz  finden  Sie  zum  Beispiel  in  der 
Zeitschrift  Computer  persönlich  Nr. 
21,  1983  auf  Seite  120).  Jetzt  müssen 
wir  noch  dafür  sorgen,  daß  der  C  64 
diese  Zahlen  irgendwo  zugreifbar 
hat,  mit  anderen  Worten:  Sie  müssen 
in  den  Speicher  gePOKEd  werden. 
Im  allgemeinen  verwendet  man  da¬ 
zu  eine  kleine  FOR-NEXT-Schleife  in 
der  die  in  DATA-Zeilen  abgelegten 
Zahlen  gelesen  und  emgePOKEd 
werden.  Wohin  packt  man  die  Kenn¬ 
zahlen?  Im  Prinzip  kann  man  sie 
überall  —  wo  sie  nicht  gerade  le¬ 
benswichtige  Computerfunktionen 
oder  Basicprogramme  stören  —  un- 


Sprite  gerade  noch  voll  sichtbar 

Sprite  gerade  nicht  mehr  sichtbar 

links  oben 

rechts  oben 

links  oben 

rechts  oben 

X  =  24 

X=  320 

X  =  0 

X  =  344 

oder/und 

oder/und 

Y  =  50 

Y  =  50 

Y  =  29 

Y  =  29 

links  unten 

rechts  unten 

links  unten 

rechts  unten 

X  =  24 

X  =  320 

X  =  0 

X  =  344 

oder/und 

oder/und 

Y  =  229 

Y  =  229 

Y  =  250 

Y  =  250 

Tabelle  2.  Grenzposition  normaler  Sprites 

Sprite  No. 

Register 

Bit-Paar 

Farbherkunft 

0 

1 

2 

53287 

53288 

53289 

00 

durchsichtig 

01 

Sprite  Mehrfarbregister 

53285 

10 

normale  Sprite-Farben- 
Register  (53287  bis  53294) 

7 

53294 

11 

Sprite  Merhfarbregister 

52286 

Tabelle  3.  Zuordnung  Tabelle  4.  Herkunft  der 

der  Sprite-Farben-Register  Bitpaar-Farben  im  Multicolor-Modus 


Sprite  gerade  noch  voll  sichtbar 

Sprite  gerade  nicht  mehr  sichtbar 

links  oben 

rechts  oben 

links  oben 

rechts  oben 

X  =  24 

>4 

II 

CO 

* 

X  nicht  möglich 
nur 

X  =  344 
oder/und 

Y  =  50 

Y  =  50 

CO 

ii 

Y  =  8 

links  unten 

rechts  unten 

links  unten 

rechts  unten 

X  =  24 

X  =  926 

X  nicht  möglich 
nur: 

X  =  344 
oder/und 

Y  =  208 

Y  =  208 

Y  =  250 

Y  =  250 

Tabelle  5.  Grenzposition  doppelt  gedehnter  Sprites 
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terbringen.  Es  gibt  lediglich  zwei 
Dinge,  die  zu  beachten  sind: 

a)  Die  Startadresse  muß  durch  64 
glatt  teilbar  sein.  (Zum  Beispiel  896 
=  14  mal  64  etc.) 

b)  Aus  Gründen,  auf  die  wir  noch  zu 
sprechen  kommen  werden,  sollten 
die  Spnte-Daten  im  gleichen  16 
KByte-Speicherabschnitt  (siehe  vor¬ 
angegangene  Folge)  abgelegt  wer¬ 
den,  in  dem  sich  das  Video-RAM 
befindet,  welches  bei  der  Sprite- 
Nutzung  angeschaltet  ist. 

Damit  gibt  es  im  Prmzip  256  Orte 
pro  Speicherabschnitt,  in  denen  die 
Sprite-Daten  gespeichert  werden 
können.  Allerdings  sind  einige  Stel¬ 
len  zum  Beispiel  im  Abschnitt  0  (mit 
dem  normalen  Bildschirm)  bei  der 
Verwendung  von  nur  wenigen  Spri¬ 
tes  besonders  bevorzugt,  weil  man 
keinen  Basicspeicher  wegnimmt 
und  deshalb  auch  keine  Schutz- 
POKEs  nötig  sind: 

1)  704  —  767  ungenutzte  Adressen 

2)  832  —  895  Kassettenpuffer 

3)  896  —  959  Kassettenpuffer 

4)  960  —  1023  restlicher  Kassetten¬ 
puffer  und  freier  Platz. 

Für  weitere  MOBs  muß  dann  Ba¬ 
sicspeicher  verwendet  und  dieser 
dann  vor  dem  Überschreiben  durch 
Programmtext,  Variablen  oder 
Strings  —  wie  in  Folge  2  gezeigt  — 
geschützt  werden.  Dem  Erfindungs¬ 
reichtum  sind  allerdings  keine 
Grenzen  gesetzt.  So  könnte  man  bei¬ 
spielsweise  (siehe  vorangegangene 
Folge)  den  Bildschirm  an  den  obe¬ 
ren  Rand  des  Abschnittes  2  ver¬ 
schieben  und  darunter  oder  dar¬ 
über  Spnte-Daten  ablegen.  Man 
muß  dann  zwar  auch  den  Speicher¬ 
schutz  einPOKEn,  hat  aber  trotzdem 
meistens  noch  mehr  als  genug  Ba- 
sicspeicherplatz.  Wenn  man  nur 
vier  Sprites  gleichzeitig  verwendet, 
insgesamt  aber  mehrere  definiert 
hat,  kann  man  sie  alle  im  4  KByte- 
Bereich  ab  $C000  abspeichern  und 
bei  Bedarf  den  Sprite,  der  dran  ist, 
mit  einer  kleinen  FOR-NEXT- 
Schleife  in  einen  der  vier  Speicher¬ 
bereiche  (704  ....  und  so  weiter)  um¬ 
laden.  Sicher  fallen  Ihnen  noch 
mehr  Möglichkeiten  ein.  Wir  wer¬ 
den  uns  im  nachfolgenden  einfach 
mit  drei  Sprites  begnügen  und  uns 
nur  im  normalen  Abschnitt  0  bewe¬ 
gen. 

Legen  wir  also  nun  zunächst  unser 
Pentagramm  in  den  Bereich  704  bis 
767  und  nach  832  bis  895: 

10  FOR  1  =  0  TO  62:READ  A:POKE 
704  +  I,A:POKE  832  +  I,Ä:NEXT  I 
30  DATA  hier  werden  jetzt  unsere  63 
Kennzahlen  eingegeben, 
bis  60  DATA 
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Noch  ignoriert  der  C  64  unsere 
Sprites  völlig.  Es  interessiert  ihn 
überhaupt  nicht,  was  wir  an  Arbeit 
zum  Füllen  seiner  Speicherbauches 
aufgewendet  haben.  Wir  müssen 
ihm  noch  mitteilen,  wo  der  VIC-II- 
Chip  die  Sprite-Daten  finden  kann. 
Weil  dieser  Chip  dazu  eingerichtet 
ist,  gleichzeitig  8  MOBs  zu  verwal¬ 
ten,  gibt  es  acht  Speicherzellen,  die 
sogenannte  Sprite-Zeiger  enthalten. 

Na,  wo  ist  er  denn? 
Sprite-Zeiger 

Sie  befinden  sich  immer  im  gleichen 
1  KByte-Bereich,  in  dem  auch  der 
Büdschirmspeicher  liegt.  Weil  die¬ 
ser  Video-RAM  nur  1 000  Bytes  be¬ 
nötigt,  sind  oberhalb  desselben 
noch  24  Bytes  frei,  von  denen  die 
obersten  8  als  Sprite-Zeiger  dienen. 
Wenn  also  im  Normalfall  der  Bild¬ 
schirmspeicher  von  1024  bis  2023 
geht,  dann  liegen  die  Sprite-Zeiger 
von  2040  bis  2047.  Verschiebt  man 


Nummer  1,  dann  müssen  wir  also 
eingeben: 

70  POKE  2040,11:POKE  2041,13 
Damit  sind  die  Sprite-Zeiger  gesetzt. 

Anschalten  der  Sprites 

Wenn  Sie  jetzt  freudig  RUN  (RE¬ 
TURN)  eingetippt  haben,  um  unsere 
Drudenfüsse  zu  sehen,  werden  Sie 
ein  langes  Gesicht  gemacht  haben: 
Nix  zu  sehen!  Aber  das  ist  wie  bei  ei¬ 
ner  Lampe:  Sie  haben  den  Lampen¬ 
schirm,  die  Glühbirne,  den  Stecker 
eingesteckt  und  sie  leuchtet  nicht! 
Deswegen  schalten  wir  sie  jetzt  ein, 
die  Sprites.  Der  Schalter  dafür  sitzt 
im  Sprite-Kontrollregister  53269  (sie¬ 
he  Folge  1  Tabelle  der  VIC-II-Chip- 
Register).  Dort  gibt  es  für  jedes 
MOB  ein  Bit.  Also  Sprite  Nummer  0 
entspricht  Bit  Nummer  0  und  so  wei¬ 
ter.  Ein  Sprite  ist  eingeschaltet,  wenn 
sein  Bit  auf  1  gesetzt  ist.  Wie  man  em- 
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den  Bildschirm,  dann  werden  die 
Sprite-Zeiger  mit  verschoben.  In 
diese  Sprite-Zeiger-Bytes  POKEn 
wir  die  Zahlen  ein,  die  mit  64  multi¬ 
pliziert  die  Startadresse  der  Sprite- 
Daten  ergeben.  In  unserem  Beispiel 
also:  704/64  =  11  und  832/64  =  13. 

Wenn  wir  diese  Sprite-Zeiger  ein¬ 
geben,  nehmen  wir  automatisch 
gleichzeitig  auch  die  Numerierung 
vor.  Dabei  gehört  zu 
Sprite  Nr.  0  der  Sprite-Zeiger  2040 
Sprite  Nr.  1  der  Sprite-Zeiger  2041 
Sprite  Nr.  2  der  Sprite-Zeiger  2042 
und  so  weiter. 

Nennen  wir  also  einfach  den  Spri¬ 
te,  dessen  Daten  von  704  bis  767  lie¬ 
gen,  Nummer  0  und  den  anderen 


zelne  Bits  setzt  oder  löscht,  kennen 
wir  noch  aus  der  zweiten  Folge. 
Spielen  wir  das  hier  nochmal  an  un¬ 
serem  Beispiel  durch:  Wir  wollen 
Sprite  Nummer  0  und  Sprite  Num¬ 
mer  1  einschalten,  müssen  also  die 
Bits  0  und  1  auf  den  Wert  1  setzen.  Da 
gab  es  doch  die  OR-Funktion  und  ei¬ 
ne  sogenannte  Maske: 

XXXXXXXX  irgendein  binärer 
Inhalt  von  53269 

OR  00000011  Maske  (=  dezimal  3) 
XXXXXX11  Ergebnis  (Bits  0  und 
1  sind  =  1) 

Das  ergäbe  die  Programmzeile: 

80  POKE  53269, PEEK(53269)  OR  3 
Wül  man  einzelne  MOBs  mit  der 
Nummer  N  einschalten,  dann  emp¬ 
fiehlt  sich  folgender  Befehl: 

POKE  53269, PEEK(53269)  OR  (2 IN) 


Bild  1.  Ein  Drudenfuß  oder  Pentagramm 

Das  Ausschalten  geschieht  durch 
die  AND-Funktion.  Jedes  Bit,  das  mit 
0  AND-verknüpft  wird,  wird  da¬ 
durch  gelöscht.  Wenn  wir  also  Spri¬ 
te  Nummer  1  ausschalten  wollen, 
verwenden  wir  wieder  eine  Maske: 

XXXXXX11  PEEK(53269),  Spri¬ 
te  0  und  1  eingeschaltet 
AND  11111101  Maske  (dezimal  =  253) 
XXXXXX01  Ergebnis:  Bit  1  =  0, 
Sprite  1  ausgeschaltet, 

Bit  0  =  1,  Sprite  0  eingeschaltet. 

Allgemein  kann  man  einzelne 
Sprites  also  abschalten  mit  POKE 
53269,  PEEK(53269)  AND  (255-2 IN), 
wobei  wieder  N  die  Sprite-Nummer 
ist. 

Ach,  Ihre  Geduld  wird  schon  auf 
eine  harte  Probe  gestellt.  Wenn  Sie 
nämlich  bis  jetzt  alle  Programmzei¬ 
len  brav  eingegeben  und  gestartet 
haben,  sehen  Sie  immer  noch  kein 
Sprite!  Aber  Sie  müssen  dem  MOB 
noch  sagen,  wo  er  erscheinen  soll! 


Schon  wieder  ein  Koordi¬ 
natensystem: 

Ort  der  Sprites 


Vor  den  Erfolg  haben  auch  die 
Commodore-Softwareplaner  den 
Schweiß  gesetzt!  Denn  nicht  genug 
damit,  daß  wir  den  Bildschirm  schon 
im  Normalmodus  in  X-Richtung,  in  Y- 
Richtung  in  25  Positionen  und  im  Bit- 
Map-Modus  in  X-Richtung  in  320,  in 
Y-Richtung  in  200  Positionen  aufge¬ 
teilt  finden,  jetzt  kommt  noch  eine 
Einteilung,  die  sogar  noch  über  den 
sichtbaren  Bildschirm  hinausreicht! 
In  Bild  4  sehen  wir  diese  Aufteilung 
in  512  horizontale  und  256  vertikale 
Koordinaten. 

Für  den  Ort  eines  Sprites  ist  —  wie 
in  Bild  angedeutet  —  die  linke  obere 
Ecke  des  Spritedefinitionsfeldes 
entscheidend.  Also  auch  dann, 
wenn  diese  Ecke  (wie  in  unserem 
Pentagramm)  unsichtbar.  So  hat  das 
im  Bild  gezeigte  MOB  die  X- 
Koordinate  128  und  die  Y  -  Koordina¬ 
te  120.  Diese  X-  und  YWerte  muß 
man  nun  in  die  zur  Sprite-Nummer 
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gehörigen  Register  einPOKEn.  Da¬ 
bei  handelt  es  sich  um  .folgende 
Speicherstellen: 

X-Position  von  Sprite  0  :  53248 
Y-Position  von  Sprite  0  :  53249 

X-Position  von  Sprite  1  :  53250 
Y-Position  von  Sprite  1  :  53251 

und  so  weiter  bis 
X-Position  von  Sprite  7  :  53262 
Y-Position  von  Sprite  7  :  53263 
Um  nun  also  endlich  unser  Sprite 
Nummer  0  sichtbar  zu  machen,  ge¬ 
ben  wir  ein: 

100  POKE  53248, 128:POKE  53249,120 
So!  Jetzt  tippen  Sie  ein  RUN  (RE¬ 
TURN)  und  endlich:  Da  ist  unser 
Pentagramm.  Gefällt  es  Ihnen?  Spri¬ 
te  1,  das  zweite  Pentagramm,  soll  am 
rechten  Bildschirmrand  auftauchen, 
also  ungefähr  bei  X  =  266  und  bei  Y 
-  130.  Deswegen  müßten  wir  aber 
in  die  entsprechende  X-Positions- 
Speicherstelle  für  Sprite  1  eine  Zahl 
größer  als  255  einPOKEn!  Wenn 
Sie's  versuchen,  meldet  der  Compu¬ 
ter  natürlich  einen  ILLEGAL  QUAN- 
TITY  ERROR.  Geht  also  nicht!  An¬ 
scheinend  war  das  bisher  noch 
nicht  verzwickt  genug.  Jetzt  müssen 
wir  nämlich  mal  wieder  das  Hexa¬ 
dezimalsystem  bemühen  (die  Sech¬ 
zehnfingerlinge,  erinnern  Sie  sich: 
Folge  2). 


Bild  3.  Das  pentagfä 


,m  Sprife-ß/traster 


Dezimal  266  ist  hexadezimal 
$010 A.  Jetzt  zerteilen  wir  diese  Zahl 
wieder  in  das  LSB  und  das  MSB: 
$01  0A 

MSB  LSB 

=  1  =0A 

und  rechnen  wieder  zurück  ins  De¬ 
zimalsystem: 

MSB  =  1 
LSB  =  10 

Rechnen  Sie  mal  nach:  Das  MSB 
kann  auch  bei  der  höchsten  X- 
Position  nie  größer  als  1  werden.  Es 
gibt  also  nur  zwei  Fälle:  Ist  die  X- 
Position  größer  als  256,  dann  ist  das 
MSB  1,  sonst  ist  es  0. 

Deswegen  speichert  man  die 
MSBs  aller  8  Sprites  in  nur  einem  By¬ 
te.  Ebenso  wie  beim  Kontrollregister 
für  das  An-  und  Ausschalten  gehört 
auch  hier  zu  jedem  Sprite  ein  Bit,  al¬ 
so:  Bit  1  gehört  zu  Sprite  1  und  so  wei¬ 
ter.  Wenn  nun  also  die  X-Koordinate 
von  Sprite  1  266  ist,  dann  ergibt  die 
Aufspaltung,  wie  oben  gezeigt,  MSB 
=  1  und  LSB  =10.  Das  Register  für 
die  MSBs  ist  Speicherstelle  53264. 
Die  10  (das  LSB)  wird  also  in  die  nor¬ 
male  Speicherstelle  für  die  X- 
Position  gePOKEt.  Das  MSB  (  =  1 )  ist 
also  Bit  1  (weil  Sprite  1)  von  Speicher¬ 


stelle  53264.  Hier  ist  also  wieder  ei¬ 
ne  OR-Operation  nötig.  Die  Y- 
Position  wird  ganz  normal  eingege¬ 
ben.  Es  ergibt  sich  also  die  Pro¬ 
grammzeile: 

110  POKE  53250, 10:POKE  53264, 
PEEK(53264)OR(2 1 1): 

POKE  53251,130 

Wenn  Sie  jetzt  einen  Schwarzweiß- 
Monitor  haben,  sehen  Sie  nach  RUN 
(RETURN)  trotzdem  nur  unser  Sprite 
Nummer  0.  Farbmonitor-Eigner  be¬ 
wundern  schon  jetzt  Sprite  Nummer 
1.  Warum,  das  wird  uns  gleich  noch 
beschäftigen. 

Welche  Koordinaten  eines  Sprites 
sind  eigentlich  möglich,  und  was 
sieht  man  dann?  Um  das  zu  erfor¬ 
schen,  bauen  wir  uns  ein  Primitiv- 
Sprite: 

20  FOR  I  =  OTO  62:POKE  1  +  896, 
255:NEXT  I:POKE  2042,14: 

REM  SPRITE  NR.  2 
Dann  schalten  wir  ein: 

90  POKE  53269, PEEK(53269)  OR  (t2) 
und  bauen  eine  Abfrage  ein  für  die 
Position: 

130  INPUT'SPRITE  2:X,Y=  ”;X,Y:IF 
X=-l  THEN  END 
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Für  die  X-Position  soll  der  Computer 
noch  die  Umrechnung  in  LSB  und 
MSB  für  uns  durchführen: 

140  XI  =  INT(X/256):X2  =  X— 256*X1 
Dann  POKEn  wir  diese  Koordinaten 
ein: 

150  POKE  53252, X2:POKE  5253.Y: 
IF  XI  =  1  THEN  POKE  53264.PEEK 
(53264)OR(2 1 2) 

Wenn  die  X-Koordinaten  kleiner 
als  256  sind,  also  das  MSB  =  0  ist, 
muß  es  natürlich  gelöscht  werden: 
160  IF  XI  =  0  THEN  POKE 
53264,  PEEK(53264)AND(255— 2127) 

Schließlich  lassen  wir  uns  außer 
dem  Sprite  Nummer  2  auch  noch  die 
eingegebenen  Koordinaten  zeigen 
und  kehren  zur  Abfrage  zurück: 

170  PRINT  CHR$(147), "x  =  "x,  "y  =  ’  7 : 
GOTO  130 

Wenn  Sie  jetzt  starten,  können  Sie 
alle  möglichen  Positionen  für  X  und 
Y  eingeben.  Versuchen  Sie  doch 
mal  X  =  265,  Y  =  130.  Da  ist  auch  für 
die  Schwarzweiß-Seher  (ich  bin 
auch  einer)  unser  Sprite  Nummer  1 
zu  erkennen.  Warum,  dazu  kommen 
wir  noch.  Wenn  Sie  genug  auspro¬ 
biert  haben,  dann  geben  Sie  für  X 
jetzt —1  und  irgendeinen  Y  -  Wert  ein 
und  das  Programm  ist  beendet.  Ver¬ 
mutlich  haben  auch  Sie  festgestellt, 
daß  man  unseren  Testsprite  ganz  all¬ 
mählich  über  den  sichtbaren  Bild¬ 
schirmrand  hinauswandern  lassen 
kann.  Es  ergeben  sich  so  die  Grenz¬ 
koordinaten  in  Tabelle  2: 


Die  in  der  Tabelle  2  angegebenen 
Werte  gelten  allerdings  nur  für  die 
normalen  Sprites,  ANn  gibt  es  auch 
noch  anormale  Sprites':  Ja,  die  gibt's 
auch.  Aber  wir  wollen  der  Reihe 
nach  Vorgehen.  Wir  können  jetzt 
Sprites  entwerfen,  Sprite-Zeiger  set¬ 
zen,  MOBs  an-  und  wieder  abschal¬ 
ten  und  sie  an  die  richtige  Stelle  set¬ 
zen. 

Mal  wieder  Farbe: 
Diesmal  die  von  Sprites. 

Eines  haben  wir  bisher  total  ver¬ 
gessen:  Welche  Farbe  soll  unser 
Sprite  haben  und  wie  geben  wir  sie 
ihm?  Auch  hierfür  gibt  es  natürlich 
wieder  Register,  die  Spnte-Farben- 
Register  und  zwar  die  in  der  Tabelle 
3. 


In  diese  Register  POKEt  man  -die 
Farbe  (Kennzahlen  0  bis  15)  ein,  in 
der  der  MOB _  erscheinen  soll.  Te¬ 
sten  Sie  mal:  Ändern  wir  Zeile  130. 
Dort  soll  in  der  IF  -THEN-Anweisung 
nach  THEN  anstelle  von  END  jetzt 
stehen  180.  Diese  Zeile  180  schaltet 
das  vorerst  ausgediente  Sprite  2 
aus: 

180  POKE  53269, PEEK(53269)  AND 
(255-212) 

Damit  eröffnen  wir  uns  die  Farb¬ 
eingabemöglichkeit  mit: 

190  PRINT  CHR$(147):INPUT"SPRI- 
TE  0, SPRITE  1  FARBEN"; 

F1,F2:IF  F1  =  -1THEN210 

Schließlich  POKEn  wir  die  Farben 
m  die  zu  den  Sprites  gehörigen  Regi¬ 
ster: 

200  POKE  53287, Fl:POKE53288, 
F2:GOTO190 
210  END 

Jetzt  können  Sie,  bis  Sie  schließlich 
für  Fl  mal  —1  eingeben,  allerlei  Far¬ 
ben  durchprobieren.  Wir  erkennen 
nun  auch,  daß  bislang  Sprite  1  für 


10 

REM**i 

20 

REM*-* 

38 

REM**-* 

48 

REM** 

58 

REM** 

60 

70  P0KE53280 

75 

80 

REM** 

96 

REM**i 

S  P  R  I  T  Y 

MANFRED  WALTER  THOMA  2102  HAMBURG  93  ERNASTRASSE  10 


146  ityar1 


DATEN  FUER  DIE  DREI  SPRITES 
188  DAT A0. 0,8, 0,6, 0,0, 0.0, 0,0, 0,0. 14, 0,0, 17, 0,0, 32, 128, 0,64, 64, 0,155, 32, 0,128 

110  001032,0,132,32,0,132,32,0, 145 ,32,0,78,84,0,32,128,0,31,0,0,0,0,0.0,0,0,0 
126  D0TA0,0,0,0,8,0,0 

138  DfiTftO, 8,8, 0,0, 0,0, 0,0, 0,0, 0,0, 14, 0,0, 17, 0,0, 32, 128, 0,64, 64, 0,155, 32, 0,128 
148  DflTft32, 0,132, 32, 0,132, 32, 0,128, 32, 0,78, 64, 8, 64, 64, 0,32, 128, 0,31, 0,0, 0,0,0 
150  DATA0, 0,8, 0,0, 0,0,0 

168  DAT00, 0,0, 0,0, 8,0, 0,0, 0,0, 0,0, 14, 0,0, 17, 0,0, 32, 128, 0,64, 64, 0,155, 32, 0,128 
178  DATA32,0, 132,32,0,132,32,0,128,32,0,78,64,0,81,64,0,64,64,0,32,128,0,31,0 
180  DATAO, 0,0, 0,0, 0,0, 0,0 
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Schwarzweiß-Seher  nicht  erkenn¬ 
bar  war,  weil  seine  Farbe  keinen 
Kontrast  zur  Hintergrundfarbe  ge¬ 
bildet  hat. 

Wem’s  noch  nicht  bunt  genug  war 
bisher,  der  hat  auch  hier  bei  den 
Sprites  die  Möglichkeit,  den 
Mehrfarben-Modus  zu  verwenden. 
Während  im  bisher  gebrauchten 
Modus  jedes  Sprite-Definitions-Bit 
entweder  0  (= Hintergrundfarbe) 
oder  1  (Farbe  des  zum  Sprite  gehöri¬ 
gen  Sprite-Farb-Registers)  sein 
konnte,  zählen  —  wie  auch  sonst  im 
Mehrfarbenmodus  —  wieder  Bit- 
Paare.  Dabei  stammt  dann  die  jewei¬ 
lige  Farbe  aus  den  in  Tabelle  4  an¬ 
gegebenen  Registern. 

Unser  Drudenfuß  sieht  somit  dann 
aus  wie  in  Bild  5  gezeigt. 

Das  wollen  wir  noch  einmal  auf 
dem  Bildschirm  ansehen.  Wir 
schreiben  ab  Zeile  190  neu: 

190  PRINT  CHR$(147):INPUT,,MOBl, 
MOB2,MULTCOLl,MULTCOL2";Fl, 
F2,F3,F4:IFF1  =  — 1THEN  220 
200  POKE  53287, Fl:POKE53288,F2: 
POKE  53285, F3:POKE  53286, F4 
220  END 

So  läuft  natürlich  noch  nichts  Neu¬ 
es,  denn  der  Mehrfarben-Modus 
muß  noch  angeschaltet  werden. 
Auch  dazu  gibt  es  wieder  ein  Regi¬ 
ster:  53276.  Wie  bei  einigen  ande¬ 
ren  Sprite-Registem  gehört  auch 
wieder  zu  jedem  MOB  das  entspre¬ 
chende  Bit,  also  zu  Sprite  1  das  Bit  1 
und  so  weiter.  Wenn  dieses  Bit  auf  1 
gesetzt  ist,  ist  für  das  dazugehörige 
Sprite  der  Mehrfarb-Modus  ange¬ 
schaltet.  Man  kann  sie  also  einzeln 
oder  zusammen  —  ganz  wie's  be¬ 
liebt  —  im  Normal-Modus  oder  im 
Muticolor-Modus  betrachten.  Wir 
schalten  Sprite  0  und  Sprite  1  in  den 
Mehrfarb-Modus  mit  Zeile 
210  POKE  53276, PEEK(53276)OR3: 
GOTO  190 

Will  man  nur  Sprite  Nummer  N 
umschalten,  dann  verwendet  man 
wie  gehabt:  POKE  53276, 
PEEK(53276)OR(2t  N). 


Das  Zurückschalten  in  den  Nor¬ 
malmodus  geschieht  dann  durch 
Löschen  der  entsprechenden  Bits: 
POKE  53276, PEEK(53276)AND 

(255-2  tN). 

Auch  hier  habe  ich  das  Programm 
so  gebaut,  daß  man  durch  Eingabe 
von  —1  und  irgendwelchen  drei  an¬ 
deren  Zahlen  aussteigen  kann.  Im 
Verlauf  des  Probierens  werden  Sie 
bestimmt  gemerkt  haben,  daß  man 
Sprites,  die  für  den  Mehrfarben- 
Modus  gedacht  sind,  speziell  kon¬ 
struieren  sollte  unter  Berücksichti¬ 
gung  der  Bit-Paar-Zusammenstellun- 


Zeile 


gen.  Unser  Drudenfuß  gefällt  mir  im 
Normal-Modus  jedenfalls  besser. 

Deswegen  schalten  wir  in  Zeile 
220  lieber  den  Mehrfarben-Modus 
aus: 

220  POKE  53276, PEEK(53276)  AND 
252 


Anormale  Sprites?  Ge¬ 
quetschte  und  gezerrte 
MOBs 


Die  normalen  Sprites  bestehen 
aus  24  x  21  Bildpunkten  und  haben 
auf  dem  Bildschirm  eine  Ausde- 


190  :  REMXKMKKWK**XK*MKX**XM***X*X*X**K ********** M**X***X**M**MM*M*XMX*M>*XXM*X 

200  :  REM**  EINLESEN  DER  SPRITES  UND  TITELBILD  ** 

220  PRINTTAB<i2>''S  P  R  I  T  V 
230  PRINTTAB< ±2 >■■=====  =  ==========" 

2-40  PRINT  :  PR  I  NT  : PR I NT  :  PRINT 

250  PRINTTABdSr’BV 

2G0  PR INTTAB<12> "MANFRED  W.  THOMA" 

270  PRINTTflBC12)”2102  HAMBURG  93” 

280  PRINTTAB<12>”  ERNASTRASSE  10” 

290  FOR I =13*64T013*G4+G2  =  READX  =  POKE I , X : HEXT 


300  POKE2040,13:  REM**  SPRITE  0  AUS  BLOCK  13  ** 

310  F0RI=14*64T014*ß4+62 : READX  =  POKEI , X : NEXT 

320  POKE204i,14:  REM**  SPRITE  1  AUS  BLOCK  14  ** 

330  FOR I=15*64T015*G4+G2 : READX : POKE I , X : NEXT 

340  POKE 2 042 .  15 :  REM**  SPRITE  2  AUS  BLOCK  15  ** 

350  V=53248 :  REM**  STARTADRESSE  DES  UIC  2  CHIP** 

360  POKE  U+39,1:  REM**  FARBE  EUER  SPRITE  0  ** 

370  POKE  U+40 , 1 :  REM**  FARBE  FÜER  SPRITE  1  ** 

380  POKE  0*41.1:  REM**  FARBE  FÜER  SPRITE  2  ** 


Das  Programm  »Sprity« 


hnung  von  zirka  drei  Zeilen  mal  drei 
Spalten.  Für  einige  Effekte  ist  es 
ganz  nett,  sie  in  ihrer  Größe  verän¬ 
dern  zu  können.  Genau  das  ist  mög¬ 
lich,  und  zwar  in  X-Richtung,  in  Y- 
Richtung  oder  in  beide  Richtungen 
gleichzeitig.  Das  Merkwürdige  an 
diese  Sache  ist  —  außer  dem 
manchmal  recht  verzerrten  Ausse¬ 
hen  — ,  daß  die  gleiche  24  mal  21  Pi¬ 
xel  abgebildet  werden,  nur  jedes  Pi¬ 
xel  ist  vergrößert.  Wenn  sowohl  in  X- 
als  auch  in  Y-Richtung  vergrößert 
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wurde,  ist  einfach  jeder  Bildpunkt 
viermal  so  groß  wie  vorher.  Auch 
hier  geschieht  das  natürlich  wieder 
über  Kontrollregister,  von  denen  je¬ 
des  Bit  wieder  zu  einem  Sprite  glei¬ 
cher  Nummer  gehört.  Die  Verdoppe¬ 
lung  in  X-Richtung  wird  durch  eine  1 
im  zum  Sprite  gehörigen  Bit  des  Re¬ 
gisters  53277,  die  in  Y-Richtung  auf 
die  gleiche  Weise  im  Register  53271 
geschaltet.  Wenn  wir  also  unser 
Sprite  Nummer  0  in  X-Richtung  ver¬ 
doppeln  wollen,  dann  geben  wir 
noch  ein: 

230  POKE  53277, PEEK(53277)0R1: 
FOR  I  =  0TO2000:NEXT  I 
Dann  sehen  wir  uns  das  nach  ei¬ 
ner  kleinen  Pause  noch  in  Y- 
Richtung  an: 

240  POKE  53277, PEEK(53277)AND 
254:POKE53271,PEEK(53271)ORl: 
FOR  1  =  0  TO  2000: NEXT  I 
Jetzt  vergrößern  wir  noch  in  beide 
Richtungen: 

250  POKE  53277, PEEK(53277)  OR  1 
Wie  Sie  sich  denken  können, 
stimmt  jetzt  die  Positionierung  die¬ 
ser  vergrößerten  Sprites  auf  dem 
sichtbaren  Bildschirmteil  nicht 
mehr.  Um  das  zu  testen,  bemühen 
wir  wieder  unser  Testsprite  Num¬ 
mer  2  und  vergrößern  in  beide  Rich¬ 
tungen: 

120  POKE  53277,PEEK(53277)OR4: 
POKE53271,PEEK(53271)OR4 
Wenn  wir  nun  das  Programm  mit 
RUN  (RETURN)  starten,  taucht  unser 
Test-Sprite  in  vergrößterter  Form  auf 
und  wir  können  es  wieder  an  ver¬ 
schiedene  Orte  auf  dem  Bildschirm 
packen.  Für  dieses  in  beide  Richtun¬ 
gen  verdoppelte  MOB  findet  man 
dann  die  Grenzwerte  in  Tabelle  5. 

Will  man  also  ein  solchermaßen 
vergrößertes  Sprite  langsam  aus 
dem  Bildschirm  ziehen  lassen,  dann 
ist  das  nicht  nach  links  möglich,  weil 
selbst  bei  X  =  0  der  Sprite  noch  teil¬ 
weise  sichtbar  ist. 

Jetzt  wissen  wir  eigentlich  fast  al¬ 
les,  was  mit  dem  einzelnen  Sprite  zu¬ 
sammenhängt.  Wenn  Sie  ein  sich 
veränderndes  Sprite  darstellen  wol¬ 
len,  so  ist  das  zum  Beispiel  möglich, 
indemallezuzeigendenBewegungs- 
phasen  als  Spritemuster  im  Spei¬ 
cher  abgelegt  werden  und  dann  per 
Programm  der  Sprite-Zeiger  auf 
den  jeweils  aktuellen  Bewegungszu¬ 
stand  umgeschaltet  wird.  So  könnte 
man  wie  in  Bild  6  die  Abläufe  A  bis 
G  im  Speicher  ablegen  und  zum  Bei¬ 
spiel  den  Sprite-Zeiger  für  Sprite  3 
zuerst  auf  das  Muster  A,  dann  nach 
entsprechender  Verzögerung  auf 
Muster  B,  dann  C,  D,  E,  F,  G  und 
schließlich  wieder  A  richten.  Wenn 
die  einzelnen  Spritemuster  gut  ge- 
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390 

POKE  U+23,7: 

REM** 

SPRITES  0-2 

IN  X-RICHTUNG 

400 

POKE  U+29,7: 

REM** 

SPRITES  0-2 

IN  Y-RICHTUNG 

*-* 

418 

P0KEU,160:P0KEU+i, 160 : 

REM** 

X-Y-KOORDINATEN 

SPRITE 

0 

** 

420 

POKEU+2, 160 : POKEU+3, 160 : 

REM** 

X-Y-KOORDINATEN 

SPRITE 

1 

** 

430 

POKEU+4, 160 : POKEU+5, 160 : 

REM** 

X-Y-KOORDIHATEN 

SPRITE 

2 

440 

FOR  1=1  TO10 

450 

POKEU+21, 1:F0R 

I  I=1T0308 

NEXT: 

REM** 

EINSCHALTEN 

NUR 

SPRITE 

0 

*-* 

460 

POKEU+21, 2 -FOR 

I I=1T0200 

NEXT: 

REM** 

EINSCHALTEN 

NUR 

SPRITE 

1 

470 

POKEU+21, 4- FOR 

I  I=1TO100 

NEXT: 

REM** 

EINSCHALTEN 

NUR 

SPRITE 

2 

*-* 

480 

NEXTI 

490 

POKEU+21, 0: 

REM** 

AUSSCHALTEN 

ALLER  SPRITES 

X-* 

500 

PRINTCHRS<147> 

510 

DRS-"  |  HIBMII" 

520 

POKE  650,128: 

REM** 

REPEAT  FUER  ALLE  TASTEN 

** 

530 


REM»* 


540 
550 

560  PRINTCHRS<147> ; 

570  PR  INTTABO)  "BEWEGUNGSSIMULATION 
580  PRINTTABO )"================  =  =  = 

590  PRINT  :  PRINT"i - ,  •• 

600  PR  I  NT" I  FT  I 

610  PRINT"! - 1 

620  PRINT"!  F3  I 

630  PR  I  NT"  i - 1 

640  PRINT"!  F5  | 

650  PRINT"! - 1 


TASTENBELEGUHGSERKLAERUNG 


660  PRINT"!  F7 
670  PRINT"' - 


680  PR  I  NT  --  PR  INT" 
690  PRINT"!  F2  | 

700  PRINT"! - i’ 

710  PRINT"!  F 4  | 
720  PRINT"!  I 


F  6 


730  PRINT"! 

740  PRINT"! - 

750  PRINT"!  F8 
760  PRINT"' - 


BEWEGEN 

SPRITE 

0 

IN 

+X 

RICHTUNG"; 

BEWEGEN 

SPRITE 

0 

IN 

-X 

RICHTUNG"; 

BEWEGEN 

SPRITE 

0 

IH 

+  Y 

RICHTUNG"; 

BEWEGEN 

SPRITE 

0 

IN 

-Y 

RICHTUNG"; 

BEWEGEN 

SPRITE 

1 

IN 

+X 

RICHTUNG"; 

BEWEGEN 

SPRITE 

1 

IN 

-X 

RICHTUNG"; 

BEWEGEN 

SPRITE 

1 

IH 

+v 

RICHTUNG"; 

BEWEGEN 

SPRITE 

1 

IN 

-Y 

RICHTUNG"; 

770  PRINT :PRINTTAB<ii>“WEITER  BITTE  TASTE" 

780  GETAS : IFAS=""THEN?80 

790  PRINT"UiUERKLEINERN  OER  SPRITE" 

800  PR  I NT"NACH  DRUECKEN  DER  TASTEIK  U  >"KANN  MIT  DEH"; 
810  PRINT"FUNKTIONSTASTEN  IN  +  X,-X  UND  +  Y.-V  UER-"; 
820  PR  I NT"KLE INERT  WERDEN." 

830  PR  INT"Ül:<FARBEN 

840  PRINT-NACH  DRUECKEN  DER  TASTEßC  F  >®KANH  MIT  DER"; 
850  PRINT"TASTE  >Fi<  DIE  FARBE  FUER  SPRITE0  GEAEN-"; 
860  PRINT-DERT  WERDEN. MIT  >F2<  FARBE  FUER  SPRITEI.", 
870  PR I NT"ÜÜH IHTERGRUNDFARBE" 

830  PRIHT-DURCH  DRUECKF*  J.  TASTEßC  H  >"WIRD  DIE" 

890  PRINT"BILDSCHIRMFARBE  GEAENDERT." 

900  PRINT”[!LjENDE" 

910  PR  I NT"PR0G RAMMENDE  MIT  TASTER  E  >5" 

920  PRINT"tiLISPRITE  EIN/AUS" 

930  PR  I NT"H ACH  DRUECKEN  DER  TASTEUK  O  >5KANN  MIT  DEN"; 
940  PR INT"FUNKT IONSTASTEN  >F1<  UND  >F2<SPRITE0  UND"; 
950  PR  I NT"SPR I TEi  EIN-  BZW.  AUSGESCHALTET  WERDEN" 

960  PR I  NT"UI  UWE I TER  BITTE  TASTE" 

970  GETAS : IFAS=”"THEN970 
980  PRINT  CHRSC147); 

990  PR  I  NT  SPC  <  33  >  "  LiX-SP.05"; 

1000  PR  INTSPCt  33)"  I  50 

LjY-SP .  05"; 
i  158 

I8X-SP.15"; 

I  150 

LJY-SP.l«' 
i  150 

I3FARBE0*1 
I  1 

I3FARBE15" 

I  l 

lax-DEHN«” 

I  3 

UV-DEHN»" 

I  3 

USCHIRM5" 

I  8 


1010  PRINTSPCT33) 

1020  PR I NTSPC < 33) 

1630  PRINTSPC<33) 

1040  PR  I NTSPC  <  33 ) 

1050  PRINTSPCT33) 

1060  PR  I NTSPC  <  33) 

1070  PR  I NTSPC  <  33) 

1080  PRINTSPC < 33 ) 

1090  PRINT SPC<33) 

1100  PRINTSPC<33) 

1110  PR  I NTSPC (33) 

1120  PR  I NTSPC<33) 

1130  PR  I NTSPC  <33) 

1140  PR I NTSPC  < 33 ) 

1150  PR I NTSPC< 33 ) 

1160  PR I NTSPC < 33) 

1170  PRINTSPC<33)"  - "; 

1180  PR I NTSPC  <  33 )"  LiON/OFF«" 
1190  PR IMTSPC < 33)"  I3S0:«  ON" 
1200  PRINTSPC<33>"  USi:*  ON" 
1218  PRINT'ia  S  P  R 

1220  P0KEU.50: 

1230  POKEU+2 , 150 
1240  POKEU+21 , 3 
1250  A=PEEK<U+30> : 


* ; CHRS< 19 ) 


1260  :  REM***** 

1270  :  REM** 

1280 

1290  GETAS  .  I F A$  =  ""THEN1290 

1300  IF  AS="E"THENPRINTCHRS<147> : POKEU+21 , 0 = END 
1310  IF  AS="H"THEN  1730 


REM**  LESEN /'LOESCHEN  K OLL  I  SOHREG** 

«KKKM ******* ******** ************ M ****** KW»* ****** 

TASTATUR  ABFRAGE  ( GET  >  ** 


1320  IF  AS="U"THEN  1990 
1330  IF  AS=”F"THEN  1830 
1340  IF  AS="0"THEH  2210 
1350  A  =  ASC  < AS  >-132 : 

1360  IFA<0  OR  AD8THEN1290 


REM**  AENDERN  DER  BILDS. FARBE  ** 
REM**  SPRITES  KLEI  HER /GROESSER  ** 
REM**  SPRITES  FARBE  ** 
REM**  SPRITES  EIN/AUS  ** 
REM**  UMRECHNEN  FUHKT I ONSTASTEN  ** 
REM**  KEINE  FUNKTIONSTASTE  ** 


1370  ON 
1380 
1390 
1400 


A  GOSUB  1430,1520,1550,1580,1610,1640,1670,1700 


REM** 


KOLLI S IONS  ABFRAGE 
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1-410  IF  PEEK<V+3O>  =  0  THEN  1290 

1420  PRINT"B  ! f !  KOLLISION  * !  !" 

1430  FOR  1=0  TO  1O0:NEXT 
1440  PRINT'Hä 
1450  GOTO  1290 

1470  :  REM**  SPRITE  BEWEGEN  X/-Y-KOORD  .  ** 

1480  :  REMXKKXXXXXXXXXX*XXXXXXKKXXXKKXXXXX**«KKKKKXXXXXXXXX-***»XX»XXXXXXXXKXXXX 

1490  WE=PEEK<U> : IFHE=255  THEN  RETURN 

1580  ME=WE+1 : PQKEU,  WE 

1510  Z=i:GOSUB2370  RETURN 

1520  UE=PEEK<U> : IFME-1THEN  RETURN 

1530  UE=UE-i:POKEU,WE 

1540  2=1 :GOSUB2370: RETURN 

1550  WE=PEEK(U+i) : IFWE=1THEN  RETURN 

1560  WE=WE-i:POKEU+l,WE 

1570  2-3 : G0SUB2376  RETURN 

1580  WE=PEEK(U+i) - IFWE=198THEN  RETURN 

1590  WE=I4E+1  :P0KEU+1,  ME 

1600  2=3 :GOSU82370: RETURN 

1610  WE=PEEK<V+2> : IFWE=255  THEN  RETURN 

1620  WE=HE+1-P0KEU+2,UE 

1630  Z=5 : GOSUB2370 : RETURN 

1640  WE=PEEKCU+2) : IFWE=1THEN  RETURN 

1650  WE=WE-1 : POKEU+2,  WE 

16S0  2=5 -GOSUB2370: RETURN 

1670  WE=PEEK<U+3> : IFWE=1THEN  RETURN 

1680  WE=WE-i : POKEU  +  3,  WE 

1690  2=7 ;GQSUB2370: RETURN 

1700  WE=PEEK<U+3) : IFWE=198THEN  RETURN 

1718  WE=HE+i:P0KEU+3,UE 

1720  Z=7 : G0SUB2370 : RETURN 

1740  REM**  HINTERGRÜNDE ARBE  (BILDS.)  -  ** 

1760  HF  =PEEK<53280) 

1770  IF  HF=255  THEN  POKE53280 , 0 : P0KE53281, 0 : WE=0 : Z=17 : GOSUB2370 : GOTO  1290 
1780  P0KE53280,HF+l:P0KE5328i,HF+i 
1790  WE=HF+1-240:Z=17:GOSUB2370 
1800  GOTO  1290 
1810  : 

1820  : 

1840  :  REM*»  SPRITE  FARBEN  ** 

1860  FOR  1=1  T058 
1870  GETAS 

1880  IFAS=CHRS(133)  OR  A$=CHRS(L37)THEN  1910:REM**  PRUEFEH  >Fi<  ODER  >F2<  ** 
1890  NEXT  I 

1900  GOTO  1290  S^cR  OHL fuy 11 

1910  Fl=PEEK(U+40) :F2=PEEK(U+39) :  REM**  AKTUELLE  FARBEN  SPRIIt  0+1** 


1920 

1930 

1940 

1950 

I960 

1970 

1980 

1990 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2098 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

2180 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2278 

2280 

2290 

2300 

2316 

2320 

2330 

2340 

2350 

2360 

2370 

2380 

2390 

2400 

2410 


IF  A$=CHR$ < 137 )  THEN  1960 

IF  F2=255THEN  POKEU+39, 0  WE=0 : Z=9 : GOSUB2370 : GOTO1290 
POKE  U+39, F2+1:WE=F2+ 1-240 : Z=9  GOSUB2370 
GOT  01298 

IF  F 1=255THEN  POKEU+40, 0 : WE=8 : Z=ll : GOSUB2370 : G0T01296 

POKE  U+48,F1+1:WE=F1+1-240:Z=11:GOSUB2370 

G0T01298 


FOR  1=1  TO  10O 

GETAS : I F  AS='"'THEN2068 

A=ASC<AS)-132 

IF  A!>0  AND  AC9  THEN  2070 

NEXT  I : GOT 0  1290 

DX=PEEK<U+29) : DY=PEEK(U+23) 

GH  A  GOTO  2100,2110,2120,2130, 2140, 2150,2160,2178 
G0T0126G 

DX=DX  OR  1 : G0T02188 
DX=DX  AND  254 : G0T02180 
DV=DV  OR  1 : GOTO2190 
DY=DY  AND  254:GOTO2130 
DX  =  DX  OR  2 : GOT 02180 
DX=DX  AND  253-GOTO2180 
DY=DY  OR  2 : GOTO2190 
DY  =  DV  AND  253 : GOT 02190 

POKE  U+29,DX-WE=DX-4:Z=13:G0SUB  2370 : G0T01290 
POKE  U+23,DY:HE=DY-4:Z=15:G0SUB  2370 : GOTO1290 
G0T01298 


FOR  1=1  TO  10O 
GETAS:  IF  AS=""THEN2280 
IFAS=CHRS(133)THEH  2290 
IF AS=CHRS (1375THEN  2310 
NEXT  I:  GOTO  1290 

IF <PEEK(U+21)ftNDl)  =  lTHENP0KEU+2!,PEEK<U+21)-i : GOT 02330 : REM*B I T  0  GESETZT  ?* 
POKE U+ 21, PEEK(U+ 21) • 1 : GOT 02340 

IF(PEEK<U+21)AND2>=2THENPOKEU+2i,PEEK<U+21)-2:GOTO2350:REM*BIT  1  GESETZT  ?* 
POKEU+21,PEEK(U+2i)+2:GOTO2360 

P0KE211 , 37 : P0KE214, 20 : SYS58640 :PRINT"0FF" : GOTO1290 
PO KE 21 1,37 :POKE214,20: SYS5864Ö : PR  I NT"  ON" : 6OTO1290 
P0KE211, 37 : P0KE214, 21 : SYS58648 : PR INT"0FF" : G0T01296 
P0KE211, 37 : POKE214, 21 : SVS58640 : PR  I  NT"  OH" : G0T01296 

: REM**  CURSOR  SETZEN  <X-Y)  ** 

POKE211,33: P0KE214, Z : SYS58640 : PR  I NTLEFTSt DRS , 9  +  LENCSTRS ( WE > ) ) ; WE -RETURN 


READY . 

Das  Programm  »Sprity«  (Schluß) 


macht  und  die  Verzögerungsschlei¬ 
fen  richtig  abgestimmt  sind,  kann  so 
eine  Art  Zeichentrickfilm  ablaufen, 
der  nun  auch  noch  durch  die  ande¬ 
ren  bisher  gelernten  Spnte-Eigen- 
heiten  (Vergrößern,  Position,  Farbe 
etc.)  veränderbar  ist.  Wie  Sie  un¬ 
schwer  erkennen,  sind  Ihrer  Phanta¬ 
sie  keine  Grenzen  gesetzt,  und  ich 
würde  mich  freuen,  von  Ihnen  mal 
so  einen  witzigen  Trickablauf  sehen 
zu  können.  Auf  einem  ähnlichen 
Prinzip  basiert  auch  ein  Programm 
von  Hans  Grigat  in  Happy-Compu- 
ter,  Ausgabe  Nummer  11  (1983),  Seite 
99  ff.  Überhaupt  lohnt  es  sich,  sich 
dieses  Programm  mal  genau  anzu¬ 
sehen,  weil  hier  die  anfangs  er¬ 
wähnte  Möglichkeit  der  Sprite- 
Daten-Verschiebung  genutzt  wurde. 

Wer  hat  Vorfahrt? 
Prioritäten 


Wir  wollen  uns  jetzt  noch  um  die 
Beziehung  von  Sprites  zu  ihrer  Um¬ 
welt  (also  zu  anderen  Sprites 
und/oder  zu  Zeichen  auf  dem  Bild¬ 
schirm)  kümmern.  Sie  erinnern  sich 
vielleicht  an  unseren  Versuch,  unser 
kleines  Test-Sprite  über  den  Büd- 
schirm  zu  bewegen  und  an  ein  Er¬ 
gebnis  davon,  nämlich,  daß  auch 
Schwarzweiß-Sehern  plötzlich  bei 
Eingabe  der  abgedruckten  Bild¬ 
schirmposition  das  Sprite  Nummer  1 
sichtbar  war.  Wenn  also  —  wie  m 
diesem  Fall  —  zwei  Sprites  sich 
überdecken,  welches  von  beiden 
wird  dann  gezeigt?  Siehe  dazu  das 
Bild  7,  auf  dem  die  Situation  abgebil¬ 
det  ist.  Wir  sehen  da:  an  den  Stellen, 
wo  Sprite  1  Bits  mit  dem  Wert  0  vor¬ 
liegen  hat,  ist  Sprite  2  zu  sehen.  Wo 
aber  der  Bitwert  des  Sprite  1  gleich 
1  ist,  wird  Sprite  2  durch  Sprite  1  ver¬ 
deckt.  Das  MOB  1  hat  eine  höhere 
Priorität  als  MOB  2.  Der  VIC-II-Chip 
organisiert  die  Prioritäten  von  Spri¬ 
tes  untereinander  also  in  folgender 
Weise:  Höchste  Priorität  hat  Sprite  0, 
dann  folgt  Sprite  1,  Sprite  2  und  so 
weiter  bis  zum  Schlußlicht  Sprite  7. 

Wenn  Sie  also  Programme  planen, 
in  denen  Sprites  aneinander  vorbei¬ 
ziehen  sollen,  denken  Sie  daran, 
daß  an  diese  Vorfahrtsregelung 
nichts  zu  ändern  ist.  Unter  Umstän¬ 
den  muß  man  dann  die  Sprite- 
Zeiger  umwechseln,  um  die  Prioritä¬ 
ten  umzukehren:  Man  macht  dann 
beispielsweise  für  den  Augenblick 
der  Überschneidung  aus  Sprite  7 
zum  Beispiel  Sprite  1  und  umge¬ 
kehrt. 

Eine  andere  Vorfahrtsregelung 
gilt,  wenn  Sprites  und  Bildschirmzei- 
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len  (oder  Bit-Map-Darstellungen) 
aufeinandertreffen.  Hier  haben  wir 
ein  Kontrollregister  zur  Hand  (mal 
wieder  eines!),  Speicherstelle 
53275,  wo  wieder  jedem  Sprite  ein 
Bit  entspricht  (also  Bit  0  entspricht 
Sprite  0  und  so  weiter).  Wenn  nun 
dieses  Bit  den  Wert  0  hat,  steht  das 
dazugehörige  MOB  vor  den  Bild¬ 
schirmdarstellungen,  andernfalls 
verkrümelt  es  sich  dahinter. 

Das  wollen  wir  uns  mal  ansehen! 
Starten  Sie  das  Programm  nochmal 
und  wenn  Sie  an  die  Farbabfrage 
kommen,  geben  Sie  dem  Sprite  0  die 
Farbe  0  (=  schwarz).  Beenden  Sie 
das  Programm  in  der  angegebenen 
Weise  und  wenn  sich  READY  ge¬ 
meldet  hat.  LISTen  Sie  das  ganze. 
Jetzt  steht  unser  schwarzes  Penta¬ 
gramm  vor  dem  Listing.  Geben  sie 
nun  im  Direktmodus  ein: 

POKE  53275,1  (RETURN).  Siehe  da: 
Sprite  0  versteckt  sich  hinter  dem  Li¬ 
sting. 

Wir  können  also  zusammenfas¬ 
sen:  Überall  dort,  wo  auf  dem  Bild¬ 
schirm  (durch  Buchstaben  oder  an¬ 
dere  Zeichen)  ein  Bit  gesetzt  ist,  ver¬ 
schwindet  dahinter  ein  gegebenen¬ 
falls  vorhandener  Sprite-Bildpunkt 
(wenn  natürlich  das  zum  Sprite  ge¬ 
hörige  Bit  im  Register  53275  gesetzt 
ist).  Nur  dort,  wo  auf  dem  Büdschirm 
ein  Bit  nicht  gesetzt  ist  (also  0  ist), 
sieht  man  einen  dort  vorhandenen 
Sprite-Bildpunkt. 

Etwas  komplizierter  liegen  die 
Verhältnisse,  wenn  wir  das  MOB  im 
Mehrfarben-Modus  vorliegen  ha¬ 
ben.  Hier  werden  nämlich  auch 
Bildschirmbitpaare  01  (von  Zeichen 
oder  Bit-Map-Darstellungen)  genau¬ 
so  behandelt  wie  Bitpaare  00.  Das 
heißt,  auch  an  solchen  Stellen  wird 
ein  eventuell  vorhandenes  Sprite- 
Bitpaar  dargestellt. 


Zusammenstöße: 

KoKsionsregister 


Erfreulicherweise  haben  die 
Software-Planer  des  C  64  auch  zwei 


ß,W  6-  T'ickfnm.B 

e*e9ung$abiauf 


Möglichkeiten  vorgesehen,  Zusam¬ 
menstöße  in  Registern  abzufragen. 
Weil  es  zwei  Sorten  von  Zusammen¬ 
stöße  gibt  (Sprite  kollidiert  mit  Sprite 
und  Sprite  kollidiert  mit  Zeichen), 
kann  man  zwei  Register  abfragen. 

Da  hätten  wir  zunächst  das  Sprite- 
Sprite-Kollisions-Register  53278. 
Auch  hier  gehört  zu  jedem  Bit  ein 
Sprite,  wie  bei  den  anderen  Kontroll- 
Registern.  Von  einem  Zusammen¬ 
stoß  spricht  man  in  Sprite-Kreisen 


Bild  7.  Sprite  1  überdeckt  Sprite  2 


immer  dann,  wenn  undurchsichtige 
Teüe  der  MOBs  aufeinandertreffen. 
Überlappen  sich  nur  die  Teile,  de¬ 
ren  Bits  bei  der  Sprite-Definition  auf 
0  gesetzt  wurden,  so  zählt  das  nicht 
als  Kollision.  Die  Bits  der  Sprites,  die 
in  den  Zusammenstoß  verwickelt 
sind,  werden  auf  1  gesetzt,  zum  Bei¬ 
spiel  erzeugt  ein  Zusammenstoß  von 
Sprite  0  mit  Sprite  1  folgenden  Inhalt 
des  Registers  53278:  00000011  =  de¬ 
zimal  3. 

Wenn  in  einem  Supercrash  acht 
Sprites  kollidieren,  steht  im  Sprite- 
Sprite-Kollisionsregister  255.  Übri¬ 
gens  werden  auch  Zusammenstöße 
registriert,  die  außerhalb  des  sicht¬ 
baren  Bildschirms  liegen  (siehe  Bild 
4). 

Wenn  ein  Sprite  mit  Bildschirm¬ 
darstellungen  (Zeichen  und  so  wei¬ 
ter)  zusammenstößt,  wird  in  Register 
53279  das  zu  ihm  gehörende  Bit  ge¬ 
setzt.  Stößt  also  Sprite  Nummer  1  mit 
zum  Beispiel  einem  A  zusammen, 
dann  liest  man  aus  dem  Register 
53279:  00000010  =  dezimal  2.  Apro¬ 
pos  lesen:  Die  Register  53278  und 


53279  sind  so  gestaltet,  daß  sie  nach 
dem  Herauslesen  (PEEKen)  ge¬ 
löscht  sind!  Deswegen  empfiehlt  es 
sich,  wenn  man  diese  Inhalte  da¬ 
nach  noch  braucht,  sie  in  Variablen 
abzulegen.  Auch  bei  dieser  Sorte 
Zusammenstößen  zählen  nur  dieje¬ 
nigen,  bei  denen  undurchsichtige 
Sprite-Teile  kollidieren.  Wenn  übri¬ 
gens  Bildschirminhalte  horizontal 
aus  dem  sichtbaren  Bereich  »her- 
ausgcscrollt«  worden  sind  (zum 
»Scrollen«  kommen  wir  in  der  näch¬ 
sten  Folge),  und  dabei  ein  Zusam¬ 
menstoß  mit  einem  Sprite  geschieht, 
wird  ebenfalls  ein  Bit  in  53279  ge¬ 
setzt. 

Manfred  Thöma  hat  das  anliegen¬ 
de  Programm  »Sprity«  geschrieben, 
mit  dem  Sie  einige  Sprite-Eigen- 
schaften  und  die  dazugehörigen  Re¬ 
gisterveränderungen  beobachtet 
werden  können. 

Obwohl  es  zu  den  MOBs  noch  eini¬ 
ges  zu  sagen  gäbe  (wie  kommen  sie 
auf  den  Bildschirm,  schnelles  Steu¬ 
ern  und  so  weiter),  soll  das  Thema 
hiermit  abgeschlossen  sein.  Ich 
denke,  daß  wir  m  dieser  Folge  die 
kleinen  Kobolde  schon  weitgehend 
entzaubern  konnten  mit  Hilfe  unse¬ 
rer  Pentagramme.  Zu  den  Sprites 
gibt  es  mehr  Literatur  als  zu  vielen 
anderen  C  64-Themen.  Hier  eine 
kleine  Auswahl: 

—  Zwei  Artikel  wurden  schon  ge¬ 
nannt  (von  H.  Grigat  und  H.  Kunz) 

—  Herbert  Kunz  hat  auch  schon  et¬ 
was  über  schnelles  Bewegen  von 
MOBs  geschrieben  im  64’er,  Ausga¬ 
be  4/83  auf  Seite  70  f. 

-  Einen  Überblick  vor  allem  über 
die  Anwendung  von  Sprites  in  Spie¬ 
len  geben  Schneider  und  Ebert  in 
den  Bänden  1  und  3  des  Commodo- 
re  64-Buches.  Erschienen  1984  in 
Haar  bei  München  im  Markt  &  Tech¬ 
nik  Verlag.  Diese  beiden  Bände 
sind  auch  von  den  sehr  gut  über¬ 
schaubaren  Programmbeispielen 
her  zu  empfehlen. 

(Heimo  Ponnath/aa) 
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ten-,  Zeichen-  und  Steuercodes 


Teil  und  Schluß 


In  dem  letzten  Teil  dieses  Kurses  finden  Sie  eine  Zu¬ 
sammenfassung  der  Methoden,  wie  man 
in  Basic  Tasten  abfragen  kann. 


Wir  haben  insgesamt  vier  Me¬ 
thoden  kennengelemt  und 
verwendet,  um  das  Drücken 
einer  Taste  im  Programm  abzufra 
gen: 

1.  Tastencode  in  Speicherzellen 
203/653 

10  A  =  PEEK(203) 

20  B  =  PEEK(653) 

30  IF  A  =  ZEICHENCODE  AND 
B  =  STEUERCODE  THEN 
AKTION 

2.  ÄSCII-Code  im  Tastaturpuffer 

100  POKE  198,0 
110  A  =  PEEK(631) 

120  IF  A = ASCII-CODE  THEN  AK¬ 
TION 

3.  Abfrage  des  ASCII-Codes  mit 
GET/INPUT 

200  GET  A$ 

210  IF  A$oCHR ^ASCII-CODE) 
THEN  AKTION  1 
220  AKTION  2 

4.  Abfrage  des  Gänsefuß-Modus 
mit  GET/INPUT 

300  GET  A$ 

310  IF  A$  » ZEICHEN «  THEN  AK¬ 
TION  1 

320  AKTION  2 

Diese  vier  Methoden  haben  alle 
eins  gemeinsam: 

Sie  können  immer  nur  eine  einzel¬ 
ne  Taste  abfragen.  Zwei  oder  gar 
mehrere  Tasten  gleichzeitig  oder 
kurz  hintereinander  gedrückt  erge¬ 
ben  keine  sinnvollen  Resultate. 

Jetzt  möchte  ich  Sie  an  meine  aller¬ 
erste  Darstellung  im  Aprilheft  des 
»64’er«,  Seite  115,  erinnern,  nämlich 
wie  die  Tasten  elektrisch  angeord¬ 
net  sind  und  wie  das  Betriebssystem 
sie  abfragt.  Ich  möchte  das  hier 
noch  einmal  darstellen,  erstens  weil 
es  eine  gute  Überleitung  bildet  zu 
meiner  Methode  der  Vielfach- 
Tastenabfrage,  zweitens  weil  meine 


damalige  Darstellung  nicht  vollstän¬ 
dig  war. 

In  Bild  1  ist  noch  einmal  die  VC 
20-Tastenanordnung  dargestellt,  in 
Bild  2  diejenige  des  C  64.  Trotz  des 
Unterschiedes  der  elektrischen  An¬ 
ordnung  ist  bei  beiden  Computern 
die  Abfragemethode  identisch,  nur 
die  dafür  benötigten  Register  haben 
unterschiedliche  Adressen. 

Zur  Erinnerung:  onun^*" 

Das  Betriebssystem  wählt  der  Rei¬ 
he  nach  die  senkrechten  Spalten  da¬ 
durch  an,  daß  es  die  Zahl,  die  am  Fu¬ 
ße  jeder  Spalte  steht,  in  das  Spalten- 
Register  37152  (beziehungsweise 
56320)  schreibt.  Diese  Zahl  ergibt  in 
dualer  Darstellung  eine  0  an  dieser 
Stelle. 

Für  jede  Taste,  die  in  der  ange¬ 
wählten  Spalte  gedrückt  ist,  wird  ei¬ 
ne  0  in  das  andere  Register  37153 
(56321)  geschrieben.  Diese  Dualzahl 
ergibt  einen  Dezimalwert,  welcher 
aus  dem  Register  herausPEEKbar 
ist. 

Das,  was  das  Betriebssystem 
macht,  machen  wir  ihm  nach,  zuerst 
für  den  VC  20: 

10  POKE  37152,247 

20  PRINT  PEEK  (37152);PEEK(37153) 

30  GOTO  10 

und  für  den  C  64: 

10  POKE  56320,127 

20  PRINT  PEEK(56320);PEEK(56321) 

30  GOTO  10 

In  Zeile  10  ist  noch  ein  weiterer  Un¬ 
terschied  zwischen  den  beiden 
Computern  zu  sehen.  Beim  VC  20 
habe  ich  die  Spaltenzahl  247  ge¬ 
wählt,  weil  in  dieser  Spalte  die 
STOP-Taste  liegt.  Diese  Spalte  ist 
nämlich,  wie  wir  in  Teil  1  ja  schon 
festgestellt  haben,  die  einzige  Spal¬ 
te,  die  wir  mit  Basic  abfragen  kön¬ 
nen.  Bei  POKEn  der  anderen  sieben 


m 


Spaltenzahlen  in  Zeile  10  wirft  uns 
die  60mal  in  der  Sekunde  stattfin¬ 
dende  Überprüfung  der  STOP-Taste 
aus  dem  Programm. 

Beim  C  64  ist  das  die  Spalte  127, 
wie  es  uns  ein  Blick  auf  das  Bild  2 
zeigt. 

Ich  freue  mich  übrigens,  daß  ein 
aufmerksamer  Leser  aus  Wien  die¬ 
sen  Unterschied  sofort  bemerkt  und 
mich  darauf  aufmerksam  gemacht 
hat.  Aber  ich  hatte  damals  nur  einen 
VC  20  zur  Verfügung,  und  mangels 
eigener  Erprobung  ist  es  mir  nicht 
aufgefallen.  Das  hat  sich  übrigens 
jetzt  geändert. 

Diese  Tastenabfrage  hat  den  gro¬ 
ßen  Vorteil,  daß  mehrere  Tasten 
gleichzeitig  drück-  und  abfragbar 
sind.  Jede  gedrückte  Taste  erzeugt 
eine  0  im  »Reihen-Register«.  Mit  dem 
kleinen  Programm  oben  können  Sie 
es  ausprobieren.  Drücken  Sie  alle 
Tasten  der  Spalte  247  (127),  die 
STOP-Taste  bitte  als  letzte!  Der  rech¬ 
te  Zahlenstreifen  auf  dem  Bild¬ 
schirm  zeigt  die  0. 

Lassen  Sie  die  STOP-Taste  (die 
1-Taste)  los,  und  es  erscheint  die  1, 
bei  Loslassen  der  linken  SHIFT- 
Taste  (der  —Taste)  zusätzlich  erhal¬ 
ten  wir  die  3.  Das  ist  die  Dezimalzahl 
für  00000011,  die  beiden  Einser  ent¬ 
stehen  durch  die  losgelassenen  Ta¬ 
sten. 

Jede  mögliche  Tastenkombination 
in  einer  Spalte  hat  ihre  spezielle  und 
abfragbare  (!)  Codezahl  im  Register 
37153  (56321),  insgesamt  256  Kombi¬ 
nationen.  Ist  das  nichts? 

Diese  Methode  der  Mehrfach- 
Tastenabfrage  haben  wir  bereits  in 
der  Ausgabe  4/84  im  ersten  Teil 
meines  Aufsatzes  erfolgreich  einge¬ 
setzt. 

Heute  möchte  ich  diese  Methode 
auf  alle  acht  Spalten,  also  auf  alle  Ta¬ 
sten  erweitern.  Dazu  müssen  wir  das 
oben  erwähnte  Hindernis,  nämlich 
den  Rausschmiß  durch  das  Be- 
triebssytem,  überwinden.  Dazu  gibt 
es  zwei  Methoden.  Methode  1  will 
ich  nur  kurz  erwähnen  —  sie  ist  ei¬ 
nen  eigenen  Aufsatz  wert. 

Man  kann  durch  Beeinflussung 
der  Speicherzellen  788  und  789  die 
Pause  (Interrupt)  zur  Tastenabfrage 
des  Betriebssytems  künstlich  ver¬ 
längern  und  sie  zur  eigenen  Abfra¬ 
ge  benutzen. 
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Die  zweite  Methode  ist  einfacher. 
Wir  schreiben  das  Programm  oben 
(Zeilen  10  und  20)  in  Maschinenspra¬ 
che.  Das  läuft  dann  so  schnell  ab, 
daß  es  innerhalb  zweier  Unterbre¬ 
chungen  ausgeführt  und  somit  vom 
Betriebssystem  nicht  gestört  wird. 

Da  ich  nicht  annehme,  daß  alle  Le¬ 
ser  dieses  Kurses  in  Maschinenco¬ 
de  programmieren  können,  zeige 
ich  es  Ihnen  einfach  als  Kochrezept. 
Es  besteht  aus  einer  Reihe  von  Zah¬ 
len,  die  über  READ  ...  DATA  in  vor¬ 
bestimmte  Speicherplätze  gePOKEt 
und  von  dort  dann  mit  SYS  gestartet 
werden. 

Für  den  VC  20  gilt: 

100  DATA  169,  [254]  ,141,32,145,173, 

33.145.141.255.29.96 

Für  den  C  64  güt: 

100  DATA  169,  |254l  ,141,0,220,173,1, 

220.141.255.29.96 

Ich  habe  einige  Zahlen  gekenn¬ 
zeichnet: 

—  Die  zweite  Zahl  der  DATA-Reihe  in 
den  Kästchen  ist  die  Zahl  der  Spalte, 
die  angewählt  wird  (ich  habe  254  ge¬ 
wählt). 

-  Die  32  und  145  (0,220  beim  C  64) 
ergeben  die  Registeradresse  37152 
(56320),  die  DATA-Werte  33  und  145 
(1,220)  die  Registeradresse  37153 
(56321),  die  Werte  255,29  ergeben  ei¬ 
ne  Speicherzelle  7679,  auf  die  ich 
noch  zurückkomme. 

Die  Registeradressen  sind,  wie 
immer  bei  Commodores  8-Bit-Com- 
putem,  mit  zwei  Zahlen,  das  heißt 
mit  zwei  Bytes  dargestellt. 


REGEL: 

LSB  +  256*MSB  =  Adresse 
32  +  256*  145  =  37152 
1  +  256*  220  =  56321 
LSB  =  niederwertiges  Byte 
MSB  =  höherwertiges  Byte 

Diese  12  DATA-Zahlen,  ich  nenne 
sie  X,  werden  eingelesen  mit: 

110  FOR  K  =  1  TO  12 
120  READ  X 
140  NEXT  K 

Damit  diese  Zahlen  vom  Basicpro- 
gramm  nicht  überschrieben  oder 
gelöscht  werden  (was  dasselbe  ist), 
POKEn  wir  sie  an  das  Ende  des  VC 
20-Speichers  ohne  Erweiterung, 
nämlich  ab  Speicherzelle  7661.  Für 
den  C  64  geht  es  mit  denselben 
Adressen  natürlich  allemal. 

130  POKE  7660 +  K,X 

Um  ganz  sicher  zu  gehen,  daß  mit 
dem  Maschinenprogramm  nichts 
passiert,  schützen  wir  es,  indem  wir 
dem  Computer  vorgaukeln,  daß 
sein  für  Basic  zur  Verfügung  stehen¬ 
der  Speicher  bei  Adresse  7659  auf¬ 
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hört.  Diese  Speichergrenze  steht  in 
den  Speicherzellen  51/52  und 
55/56,  und  sie  kann  natürlich  durch 
POKEn  anderer  Zahlen  wülkürlich 
verändert  werden. 

Die  entsprechenden  Werte  für  die 
Grenze  7659  sind  235  und  29.  Ma¬ 
chen  wir  die  Probe: 

PRINT  235  +  256  +  29  (RETURN) 
ergibt  7659. 


20  POKE  51,235 
30  POKE  52,29 
40  POKE  55,235 
50  POKE  56,29 

Falls  Sie  diese  Speicherzellen  und 
ihre  Anwendung  nicht  kennen,  bitte 
ich  um  Zuschrift,  da  ich  es  hier  aus 
Platzgründen  nicht  näher  erläutern 
kann. 

So,  nun  ist  das  Maschinenpro¬ 
gramm  gespeichert  und  gesichert. 
Wir  starten  das  Programm  mit  SYS- 
Aufruf  der  1.  Adresse  und  PEEKen 
danach  in  das  Register  37153  (56321), 
genau  wie  vorher. 

150  SYS  7661 

160  PRINT  PEEK(37153):  REM  VC  20 
160  PRINT  PEEK(56321):  REM  C  64 
170  GOTO  150. 

Nach  RUN  erzeugt  der  Rück¬ 
sprung  den  schon  obligatorischen 
Zahlenstreifen  mit  255  für  »keine  Ta¬ 


ste  gedrückt«.  Wenn  wir  die  Taste  3 
(RETURN  beim  C  64)  drücken,  dann 
muß  entsprechend  Bild  1  und  2 
(Spalte  254)  die  Zahl  253  erscheinen. 
Das  tut  sie  auch,  aber  immer  wieder 
unterbrochen  durch  255.  Das  kommt 
daher,  daß  das  Auslesen  des  Regi¬ 
sters  37153  (56321)  in  Basic  doch 
schon  zu  langsam  ist.  Wir  müssen 


daher  die  Funktion  der  Zeile  160 
ebenfalls  in  das  Maschinenpro¬ 
gramm  einbauen,  was  ich  in  weiser 
Voraussicht  in  Zeüe  100  schon  vorbe¬ 
reitet  habe.  Der  Trick  ist  nämlich  da¬ 
bei,  daß  der  Inhalt  des  Registers 
vom  Maschinenprogramm  in  eine 
vor  dem  bösen  Basic  geschützte 
Speicheradresse  gebracht  wird.  Da 
wir  ja  einen  gesicherten  Bereich  be¬ 
reits  haben,  habe  ich  darauf  die  Zel¬ 
le  7679  ausgewählt. 

Bitte  ändern  Sie  die  Zeile  160  ab: 
160  PRINT  PEEK(7679) 

Jetzt  haben  wir’s  geschafft. 
Natürlich  können  wir  mit  diesem 
Programm  alle  acht  Spalten  abfra- 
gen.  Wir  brauchen  bloß  in  Zeile  100 
die  Zahl,  die  hier  im  Kästchen  steht, 
abändern,  zum  Beispiel  in  253,  und 
schon  reagiert  das  Programm  auf  al¬ 
le  Tasten  dieser  Spalte. 

Ich  habe  mir  den  Luxus  erlaubt 


2  1 
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und  unser  Programm  von  oben  er¬ 
weitert,  indem  ich  der  Reihe  nach  al¬ 
le  acht  Spalten  aufrufe  (siehe  Listing 
1).  Dazu  habe  ich  in  Zeile  100  die 
Spaltennummer  auf  0  gesetzt,  was 
eigentlich  unnötig  aber  einleuch¬ 
tend  ist,  POKE  aber  dann  jeweils  die 
Spaltenzahl  (in  den  Zeilen  200,  300, 
400  etc.)  auf  diesen  Platz,  der  die 
Adresse  7662  hat. 

Das  Programm  ist  immer  noch 
schnell  genug,  um  innerhalb  der  zur 
Verfügung  stehenden  Zeit  von  1/60 
Sekunde  alle  Abfragen  durchzufüh¬ 
ren. 

Ein  Appell  an  alle  64er:  Wenn  Sie 
die  Semikolons  in  den  Zeilen  220, 


Dann  nämlich  kommen  die  nächsten 
vier  Zahlen  dran  —  sogar  in  einer 
anderen  Farbe.  Eine  weitere  Tasten¬ 
abfrage  in  Zeile  960,  diesmal  der 
.....Taste  —  ja  schauen  Sie  halt  in  der 
ASCII-Tabelle  nach,  welche  Taste 
dieses  Zeichen  hat  (Methode  des 
waagrechten  Sprunges  zwei  Spalten 
weiter)  —  entscheidet  zwischen 
Wiederholung  der  zweiten  Gruppe 
oder  Rücksprung  auf  die  ersten  vier 
Zahlen.  Wie  gesagt,  die  Verwen¬ 
dung  der  Semikolons  an  der  richti¬ 
gen  Stelle  ist  wichtig. 

Jetzt  ist  die  Gelegenheit  da  zum 
Experimentieren: 

—  mehrere  Tasten  aus  verschiede¬ 
nen  Spalten 


Uns  soll  das  aber  nicht  be¬ 
drücken,  denn  wir  können  in  unse¬ 
rem  Programm  den  Gebrauch  die¬ 
ser  Tastenreihe  einfach  vermeiden. 
Für  unsere  Zwecke  reichen  alle  an¬ 
dern  Tasten  allemal  aus.  Man  muß 
diese  Einschränkung  nur  berück¬ 
sichtigen. 

Zusammenfassend  sei  gesagt, 
daß  Sie  in  einem  Programm  jetzt  alle 
Kombinationen  aller  Tasten  abfra- 
gen  können  mit 

IF  PEEK(7679)=  . THEN . 

Sie  müssen  sich  lediglich  die  ent¬ 
stehenden  Dualzahlen  im  Register 
37153  (56321)  in  Dezimalzahlen  um¬ 
rechnen  oder  sie  vorher  ausprobie¬ 
ren. 

Ich  will  auch  am  Schluß  meiner 
Darstellung  der  Gewohnheit  treu 
bleiben  und  das  Kochrezept  in  ei¬ 
nem  kleinen  Gericht  anwenden  (Li¬ 
sting  2). 

Ein  Spiel  für  vier 
Personen 

Um  mir  und  Ihnen  die  Sache  leich¬ 
ter  zu  machen,  verwende  ich  mög¬ 
lichst  viele  Teile  aus  den  vorherigen 
Programmen. 

Spielidee: 

—  Jeder  Spieler  wählt  eine  von  vier 
bestimmten  Tasten. 

—  Auf  dem  Bildschirm  wird  ein  be¬ 
liebiger  Buchstabe  »angesagt« 

—  Der  Bildschirm  füllt  sich  langsam 
mit  Zufalls-Buchstaben 

—  Sobald  der  »angesagte«  Buchsta¬ 
be  erscheint,  sollen  die  Spieler  ihre 
Taste  drücken 

—  Wer  zuerst  drückt,  hat  gewonnen! 
Programmbeschreibung: 

Zeile  10  bis  50 

—  schützt  das  Maschinenprogramm 
(wie  vorher) 

Zeile  100  bis  140 

—  liest  das  Kochrezept  »Maschinen¬ 
programm«  ein 

Zeile  215  und  Zeile  530 

—  stellen  einen  besonderen  Trick 
dar.  Man  nennt  das  eine  »Flagge  set¬ 
zen«  (set  a  flag).  Die  Abfrage  der  Ta¬ 
sten  soll  nämlich  nur  dann  funktio¬ 
nieren,  wenn  ein  Buchstabe  (später 
VB  genannt)  mit  dem  anfangs  »ange¬ 
sagten«  Buchstaben  BU  überein¬ 
stimmt.  Wenn  VB  =  BU  dann  wird  in 
eine  »sichere«  Speicherzelle  (ich  ha¬ 
be  830  gewählt)  eine  Zahl  (hier  250) 
hineingePOKEt.  Diese  Zahl  in  830 
wird  bei  der  Abfrage  ebenfalls  ab¬ 
gefragt.  Bei  Beginn  des  Spieles  muß 
diese  Flagge  natürlich  eingeholt, 
das  heißt  auf  0  gesetzt  werden  (Zeile 
215). 

Zeile  220  bis  270 


5  4 

ßiW  2-  Tastenanordnung  des  C  64 

320,  420  etc.  (außer  920!!!)  richtig  pla¬ 
ziert  haben,  erscheinen  die  Zahlen 
für  alle  acht  Spalten  brav  nebenein¬ 
ander. 

Beim  VC  20  haben  wir  ein  kleines 
Problem,  hervorgerufen  durch  die 
kleinere  Zeilenlänge,  die  uns  eine 
Darstellung  aller  acht  Zahlen  ne¬ 
beneinander  nicht  erlaubt. 

Ich  schlage  deshalb  vor,  nach  vier 
Zahlen  ab  Zeile  520  die  Reihenfolge 
zu  unterbrechen  (Semikolon  weglas¬ 
sen)  und  an  den  Anfang  (Zeile  200) 
zurückzuspringen,  es  sei  denn,  die 
f-l-Taste  wurde  gedrückt  (Zeile  560). 


—  mehrere  Tasten  aus  derselben 
Spalte 

Ja,  und  irgendwann  bleibt  Ihnen 
das  Programm  mit  BREAK  IN  ....  ste¬ 
hen!! 

Leider  ist  das  schon  wieder  der 
STOP-Tasten-Effekt,  den  wir  nicht 
ganz  loswerden.  Wenn  nämlich  Ta¬ 
sten  der  waagrechten  Reihe  254  (be¬ 
ziehungsweise  127)  gedrückt  wer¬ 
den,  interpretiert  dies  das  Betriebs¬ 
system  als  STOP-Taste,  die  ja  in  die¬ 
ser  Reihe  liegt,  und  stoppt  das  Pro¬ 
gramm. 
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C  64/VC  20 


—  gibt  Anweisungen  und  teilt  den 
Spielern  ihre  Taste  zu  (von  mir  will¬ 
kürlich  ausgewählt) 

Zeile  280/300 

—  löscht  den  Bildschirm  und  färbt  al¬ 
les  schwarz 

Zeile  310/320 

—  gibt  Anweisungen 
Zeile  330 

—  wählt  per  Zufallsgenerator  (wie 
vorher)  einen  Buchstaben  BU  aus, 
zwischen  1  und  10  (A  bis  J  in 
Bildschirm-Code!) 

Zeile  340/350 

—  druckt  diesen  Buchstaben  BU  ge¬ 
nau  an  das  Ende  des  Textes  der  Zei¬ 
le  320  (Bildschirmspeicher-Platz 
und  Farbspeicher-Platz  ausrech¬ 
nen!) 

Zeile  260/270  und  370/380 

—  schalten  den  Text  weiter  mit  ir¬ 
gendeiner  Taste 


hintereinander  durch.  Diese  Zahl 
bestimmt  auch  die  Geschwindig¬ 
keit,  mit  der  die  Buchstaben  auf  dem 
Bildschirm  erscheinen.  Ihre  Verklei¬ 
nerung  erhöht  die  Schwierigkeit  des 
Spieles 

Zeile  620  bis  740 

—  fragt  die  in  Zeile  220  bis  250  defi¬ 
nierten  Tasten  und  die  Flagge  in  830 
ab.  Beim  VC  20  ist  jede  der  gewähl¬ 
ten  Tasten  in  einer  anderen  Spalte, 
daher  sind  vier  POKEs  in  7662  not¬ 
wendig.  Beim  C  64  liegen  je  zwei  Ta¬ 
sten  in  emer  Spalte,  daher  nur  zwei 
POKEs  in  7662.  Da  aber  gleichzeiti¬ 
ge  Tastendrücke  Vorkommen  kön¬ 
nen  (in  einer  Spalte  natürlich),  fra¬ 
gen  Zeile  660  und  710  diesen  spe¬ 
ziellen  Fall  ab. 


Zeile  810  bis  840  beziehungsweise 
850 

—  meldet  den  Sieger  (Aussprung 
aus  der  Abfrage) 

Zusammenfassung  und 
Schluß 

Diese  »gleichzeitige«  Mehrfach- 
Tastenabfrage  ist  genau  genommen 
nicht  ganz  gleichzeitig. 

Nichts  in  einem  einzelnen  Compu¬ 
ter  ist  gleichzeitig!  Alles  erfolgt  in  ei¬ 
ner  Sequenz. 

In  dem  Spielprogramm  für  vier 
Personen  erfolgt  die  Tastenabfrage 


*, ********* 
0  rem*****  L  PUER  ** 

1  REM**  *  PERSONEN  ** 

2  REM**  A  •  .»****4 


>lEL*  rUtN 

erSoNEN  ** 

SU.:.».«**«** 

REN 


Listing  2. 

Ein  Tastenspiel  für  . 
vier  Personen1 


des  1. 


s  REt4  ************ 

8  REN*****  ftBE  **** 

7  REM***  sCHlNENCODE* 

8  REm  r************* 

9  REM****  47) 

10  PRINT  CHK 

5  ss  Ji5 

s0  POKsE  56,2-  l69,0'i4i'3  ,  -  173,1 

TC  OH'  l00  °  ,69,0'l4i' 

VC  bU.  64.  100  o«vm  I89' 


iiaoen,  i 
.  und  J) 

■0 

:  per  Zufallsgenerator  einen 
auf  dem  Büdschirm  aus,  auf 
Buchstabe  VB  gePOKEt 

ich  den 


VB  werden  m 
ästenabfrage  15  mal 


. . 

110  F°B  ™  1 

A  230  pBlNTp2ePJebER  3‘.  ,rRSR*-)T8STE' 

VC  2.0.  zw  PB1,NT”SSEiPlEUER  4  -  fuer  1  0RUECV  ■comp«300',e' 
850  PR  Z>  rr^-^/TVr  *  °euecVt  ' 

C  64'.  £ 

_  RET  R*"  _  _  ,  ,  <1?  > 


£60  PRir'  iF  N*- 

r. 

3E0  pBlT 

33«  EU  -  3« 


320  ‘TI  !N TCRHD<®,*1"  b ü 
BU  =  *  78 0S,Bu 

340  P°R  -,85 23, 7  .crKX  SEINE 

_  fsA.  350  °* 


jjTHSTE 


C  64-. 


154  32Raj* 


fflUN0  ,££R*l7'ßU  „stt1 

3? Sä»'*-"  -•* 

.  PRINT  TR6C16^u^hEn  380 
37©  pR‘  a*..iF  P*-  , 

380  GE  ^  cHR*Cl47>MFST  T 
390  pR1KI_.  TO  800iNEXT 
400  F0R  T  ^ 


Ausgabe  8^Auggat  .9&4 

64er-online.net 


Alle  Codes 


C  64/VC  20 


Listing  1.  In  diesem  Programm  können  alle  Ta¬ 
sten  abgefragt  und  angezeigt  werden 


4J5  RFM *  ************* 

MB  BUCHS™BEN  * 

538  IF  VB5?0N™" 

VC  20:  f  ^ 

«8  POKE  3S*äe^  f 

c  64:  £  ärs;«'«»- 

5  &£xrsr  ~ 

S  ™KE  7S®-=33 

630  SYS  ?s6l 

S  nND  PEEK<S30-=8 

S  Sp*:'2sa  *ND  pEEKts30^» 

™  Ss\SP°r*?  nND  peek<s30>-^ 

?30  IF  prcL 

740  NE*T  2  '  ’  ?  =  l27  AND  PEEK  (830 )  =£5g 

650  IF  P£EK<^e79)=£53 
e60  IF  PEEKf 7c,3  ‘2S3  AND 

S  T*™?7'£’se‘  ftND 

ns  ^  e 

799  NEXT  2  79 >-250  firjü 


VC  20: 


C  64: 


P£:EKCS30> 
REEK  CS30  ): 
PEEK(S30)= 


|SS£r^^eucHST'’BE, 

S05  REM********  S 6 7. 

-  p  -  — 30TO  S60 

340  pp  INT"Ljm&3FIELE:R  3  JJI  2  JEGER  "  qoto  860 
RrNT"lÄßfijE:pIEL  *  S  I EGER  "  :  GOTQ8S0 

IST  SIEGER  «.-GOTO  860 


PEEK (830) 
PE:6K(830); 
pSE:KC830)  = 


:ff®  £N  8I0 

Jf®  THE^  320 
250  THEN  850 

;J50  THEN  830 
■f:'0  THE"  840 

:£50  THEN  850 


c  64: 


-  sssrr.  e.:t* l 2 3 4 

READY. 


natürlich  auch  hintereinander,  wo¬ 
durch  die  zuerst  abgefragten  Tasten 
ihren  Besitzern  einen  kleinen  Vorteil 


850  «um-aaewE,  SPI-,  „ 

ftL  ?  (Jx'Mt 


Ein  Spiel  für  4  Personen 


4  REM  **■****■*#••***■*»•*••******#-■* 

5  REM  VIELFACHTASTEN 

6  REM  ABFRAGE 

7  REM  *■»*■»■****•»********-»*•»*•» 

10  PRINT  CHR$(147) 

20  POLE  51,235 
30  POKE  52,2? 

40  POKE  55 , 1235 
50  POKE  56,29 

100  DATA  169,254,141,0 

101  DATA  220,173,1,220 

102  DATA  141,255,29,96 

105  REM - VC20 - 

106  REM  100  DAT Al 69 , 254 ,141 ,32 

107  REM  lOl  DATA145, 173,33, 145 

108  REM  102  DATA141 ,255,29,96 

109  REM - VC20— ENDE - 

110  FÜR  K=1  TG  12 
120  READ  X 

130  POKE  7660+K, X 
140  NEXT  K 
200  POKE  7662,127 
210  SYS  7661 

220  PRINT  "  0" PEEK ( 7679 )  ; 

300  POKE  7662,191 

310  SYS  7661 

320  PRINT  PEEK (7679 3; 

400  POKE  7662,223 

410  SYS  7661 

420  PRINT  PEEK (7679 3; 

500  POKE  7662,239 

510  SYS  7661 

511  REM  - VC20 - 

512  REM  520  PRINT  PEEK <76793 

513  REM  550  GET  A$ 

514  REM  560  IF  A$<  > " ü" THEN200 

515  REM  - VC20— ENDE - 

520  PRINT  PEEK (76793; 

600  POKE  7662,247 

610  SYS  7661 

620  PRINT  PEEK (76793 ; 

700  POKE  7662,251 

710  SYS  7661 

720  PRINT  PEEK (7679); 

800  POKE  7662,253 

810  SYS  7661 

820  PRINT  PEEK (7679 3; 

900  POKE  7662,254 

910  SYS  7661 

920  PRINT  PEEK (76793 

940  REM - VC20 - 

950  RFM  RET  Ai 

960  REM  IF  A$<>"il"  THEN  600 

970  REM - VC20-ENDE - 

1000  GOTO  200 

READY. 


Ich  habe  mir  am  Anfang  das  Ziel 
gesetzt,  allgemein  verständlich  und 
ohne  Fachchinesisch  zu  schreiben. 

Ob  mir  das  gelungen  ist,  können 
nur  Sie  mir  sagen.  Falls  etwas  unklar 
geblieben  ist  und  Sie  Fragen  haben, 
schicken  Sie  sie  mir,  ich  werde  Ih¬ 
nen  antworten.  Und  wenn  es  soge¬ 
nannte  »gute  Fragen«  sind,  schreibe 


gewähren,  aber  halt  nur  einen  ganz 
winzigen! 

Dieser  Effekt  wird  durch  das 
15fache  Durchlaufen  der  Abfrage 
und  durch  die  Schnelligkeit  des  Ma¬ 
schinenprogramms  gemildert.  Das 
ganze  Programm  in  Maschinenspra¬ 
che  geschrieben  würde  natürlich 
durch  die  Geschwindigkeit  auch  die 
letzte  Ungerechtigkeit  ausmerzen. 

So,  liebe  VC  20er  und  C  64er.  Das 
war’s. 


Ich  hoffe,  Sie  kennen  jetzt  die  ver¬ 
schiedenen  Codes  und  fühlen  sich 
wohl  bei  der  Tasten-Abfrage.  Me¬ 
thoden  und  Kochrezepte  haben  Sie 
dazu  ja  jetzt  genug. 

Ich  habe  mich  bemüht,  Sie  zum 
Experimentieren  anzuregen,  denn 
gerade  diese  spielhafte  Auswir¬ 
kung  der  Neugier  unterscheidet 
den  Amateur  vom  Profi  und  fördert 
das  Verständnis  der  Zusammen¬ 
hänge. 


ich  vielleicht  darüber  den  nächsten 
Kurs. 

(Dr.  Helmuth  Hauck/gk) 
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3.  VC  20  SPIELE-BUCH  1  von  A.  Dripke,  Computer  Life  Ver¬ 
lag,  1983 
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5.  64-INTERN  von  Angerhausen  et  al.,  Data  Becker,  1983 
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Itechnik  Verlags,  1983 

7.  VIC-20PROGRAMMERS  REFERENCE  GUIDE  von  A.  Fin- 
kel  et  al,  Howard  W.  Sams  &  Co,  1982 
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Die  Kunst  der  Fütterung  von 
Milchkühen  besteht  nicht  darin, 
ihnen  etwas  Freßbares  in  den 
Futtertrog  zu  werfen  und  dann  zu 
warten,  daß  am  Euter  möglichst  viel 
Milch  herauskommt,  meint  Willi 
Lackenbauer.  »Das  Futter  muß  aus¬ 
gewogen  sein,  sonst  geben  die  Kühe 
nicht  genug  Milch«.  Der  Fachmann 
gibt  seit  zehn  Jahren  Landwirten 
Tips  und  berät  sie  bei  der  Viehhal¬ 
tung. 

Seit  sechs  Monaten  setzt  Willi 
Lackenbauer  einen  C  64  ein,  um  die 
Milchleistung  in  den  Kuhställen  zu 
optimieren.  Für  jede  Kuh  erstellt  er 
einen  maßgeschneiderten  Plan. 
»Gras  allein  macht  Kühe  nicht  glück¬ 
lich  —  und  nur  glückliche  Kühe  ge¬ 
ben  viel  Milch,  das  weiß  sogar  der 
Städter«  meint  Willi  Lackenbauer. 
Er  erläutert  die  Grundzüge  der  Füt¬ 
terung:  »Es  kommt  vor  allem  auf  eine 
ausgewogene  Nahrung  an.  Das  ist 
beim  Menschen  ja  nicht  anders. 
Wer  sich  überwiegend  von  Fett  und 
Kohlenhydraten  ernährt,  wird  in  sei¬ 
ner  Leistungsfähigkeit  nachlassen, 
weil  ihm  Eiweiß  fehlt.  In  ähnlicher 
Weise  wird  auch  das  Futter  für  Kühe 
nach  sogenannten  Nährstoffeinhei- 
ten  bewertet.  Diese  sind  —  nach  Fut¬ 
tersorten  geordnet  —  in  Tabellen 
festgehalten.  Bei  der  Rationsbe¬ 
rechnung  muß  man  davon  ausge¬ 
hen,  daß  die  Kuh  einen  bestimmten 
Nährstoffanteü  für  ihren  Grundbe¬ 
darf  benötigt.  Erst  was  darüber  hin¬ 
aus  gefüttert  wird,  wandelt  sich  in 
Leistung  —  sprich  Milch  —  um.  Da¬ 
bei  steht  ziemlich  genau  fest,  wieviel 
Nährstoffe  für  einen  Liter  Milch  not¬ 
wendig  sind.« 

Der  Milchvieh-Experte  gibt  hierzu 
ein  Beispiel:  »Grünfutter  ist  ein  aus¬ 
gesprochener  Eiweißlieferant,  je¬ 
doch  arm  an  Energie.  Ohne  Energie 
wird  das  pflanzliche  Eiweiß  nicht  in 
tierisches  Milcheiweiß  umgewan¬ 
delt  oder  Milchfett  gebildet.  Um  das 
im  Grundfutter  enthaltene  Eiweiß 
für  die  Milchleistung  zu  nutzen,  muß 
energiereiches  Kraftfutter  zugefüt¬ 
tert  werden.« 


Der  Computer 
im  Kuhstall 


Auch  in  der  Landwirtschaft 
läßt  sich  ein  Heimcomputer 
sinnvoll  einsetzen. 

Ein  Agrar-Ingenieur 
aus  Baden-Württemberg 
berechnet  mit  seinem  C  64  die 
Futterration  für  das  Milchvieh. 


Ausgabe  8/ August  1 


156 


C  64 


So  machen’s  andere 


WIR  TS  C  M  fA  E  TL  I  E  M  E  r»1  ILCHV  I  E  H  F7  D  E  ' 


:  R  l_l  MG 


rat ionsberechnung  fuer  milchkuehe 


LACKENBAUER  WILLI 
REBGUT6  TR , 38 
G9?0  LAUDA 


O  R  l_>  MD  E  l_J  ~l — DE  RRATIO  IM  -_T  | 


KUH  LJ  ND  TAG 


ROTKLEE  I  .  SCHN. 

MI  CSE  I . SCHN . <  IN  BL.  > 

MB  I SS  I LAGE  3SXTS 
HAFERSTROH 

WIESENHEU  I.SCHN.I  I.BL.  ) 


DIESE  RATION  E  NTH AELT: 


TROCKENSUBST 

ENERGIE 

ROHPROTE IN 

ROHFASER 

CALCIUM 

PHOSPHOR 


KG 

15.00 

KG 

15.00 

KG 

12.00 

KG 

1 . 00 

KG 

2.00 

i  E  L_.  T  s 

12780.00 

GRAMM 

73.40 

MJNEL 

1612.60 

GRAMM 

3213.30 

GRAMM 

106.40 

GRAMM 

30 . 60 

GRAMM 

G  R  U  ND  R  «_)  T 

TER  i 

EHER 3  IE 

ROHPROTEIN 

CALCIUM 

PHOSPHOR 

CA:P-VERH, 


11.26 
13.31 
25.  12 
2.70 
3.43 


KG  MILCH 
KG  MILCH 
KG  MILCH 
KG  MILCH 
:  1 


D  U  S  C3  t_  E  I  C  M  S  —  l_J  .  EE  ISTU  MG  S  E  l_i  T — TE  FR  = 


WINTERGERSTE 

MILCHLE ISTUN6SF . 165«  III) 


KG 

KG 


£.00 
£  .  00 


DIE  GESAMTRATION  ENTHAELT 


TROCKENSUBST 

ENERGIE 

ROHPROTEIN 

ROHE ÄSER 

CALCIUM 

PHOSPHOR 


I  6240  .  AP) 
101.64 
2142.00 
3576 . 00 
127 . 60 
50 . 60 


GRAMM 

MJNEL 

GRAMM 

GRAMM 

GRAMM 

GRAMM 


M  I  LCHERZ  EUG  U  isIG  S  WE  FF 


ENERGIE 

ROH°ROTEIN 

CALCIUM 

PHOSPHOR 


CAsP-VERH. 


DER 

GESAMTRl 

20.17 

KG 

MILCH 

13.55 

KG 

MILCH 

3  1 . 75 

KG 

MILCH 

14.47 

KG 

MILCH 

2.52 

;  1 

?  IN  DER 

TR.SUBST 

Mit  der  Kuhhaltung  auf  einem 
klassischen  Bauernhof  hat  die  mo¬ 
derne  Milchviehhaltung  nichts 
mehr  zu  tun.  Seit  Anfang  der  60er 
Jahre  hat  sich  beim  Neubau  von  Stäl¬ 
len  der  sogenannte  Boxenlaufstall 
durchgesetzt.  Vierzig,  achtzig  und 
mehr  Kühe  in  einem  Stall.  Jede  Kuh 
kann  frei  herumlaufen.  Will  sie  sich 
hinlegen,  geht  sie  in  ihre  eigene  Lie¬ 
gebox.  Die  Rangordnung  in  der 
Herde  bestimmt,  welcher  Kuh  wel¬ 
che  Box  gehört.  Außerdem  gibt  es  in 
einem  Stall  noch  zwei  ganz  besonde¬ 
re  Stände:  den  Melkstand  und  den 
Futterstand.  Im  Melkstand  steht  der 
Melker  vertieft  und  hat  die  Euter  in 
Griffhöhe  vor  sich,  Ob  mit  der  Melk¬ 
maschine  oder  —  im  Ausnahmefall 
—  von  Hand,  die  Kuh  ist  bequemer 
zu  melken.  Außerdem  ist  es  recht 
praktisch,  nicht  er  geht  zur  Kuh  wie 
früher,  sondern  die  Kuh  kommt,  um 
sich  melken  zu  lassen.  Damit  sie  ru¬ 
hig  steht,  wird  sie  währenddessen 
mit  Futter  abgelenkt. 


Heimlich  »naschen« 
ist  unmöglich 


Der  Futterstand  ist  ganztägig  »ge¬ 
öffnet«.  Immer  wenn  eine  Kuh  hung¬ 
rig  ist,  geht  sie  fressen.  Aber  wie  will 
man  bei  einer  so  großen  Herde  kon¬ 
trollieren,  wieviel  jede  frißt?  »Da  hat 
die  Elektronikindustrie  schon  längst 
eine  Lösung  gefunden.  Jede  Kuh 
trägt  einen  elektronischen  Code  am 
Halsband,  einen  sogenannten  Trans¬ 
ponder«,  erklärt  Willi  Lackenbau¬ 
er  schmunzelnd .  Für  ihn  ist  es  selbst¬ 
verständlich  —  doch  der  Laie  wun¬ 
dert  sich:  Elektronik  im  Kuhstall. 
»Beim  Eintreten  in  den  Futterstand 
wird  die  Kuh  identifiziert  und  be¬ 
kommt  eine  Portion  von  300  Gramm. 


»35 


Dieser  Ausdruck  zeigt,  welche  Werte  bei  einer  wirtschaftlichen  Rationsberechnung  wichtig  sind 
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Wegen  der  Verdauung  ist  es  günsti¬ 
ger,  das  Kraftfutter  in  möglichst  vie¬ 
le  Portionen  aufzuteilen.  Hat  eine 
Kuh  ihre  Tagesration  aufgebraucht, 
bekommt  sie  auch  bei  mehrfachem 
Besuch  des  Futterstandes  nichts 
mehr.  Was  jede  Kuh  tatsächlich  ge¬ 
fressen  hat,  kann  sich  der  Landwirt 
jeden  Abend  auf  einem  Ausdruck 
anschauen.  Die  Soll-Menge  für  jede 
Kuh  richtet  sich  nach  ihrer  Milchlei¬ 
stung  und  wird  in  wöchentlichem 
Turnus  angepaßt.« 


‘ 
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Der  Landwirt  braucht  sich  nicht  zu 
sorgen,  solange  seine  Kühe  soviel 
fressen  wie  sie  sollen  und  die  erwar¬ 
tete  Menge  Milch  geben.  Doch  bei 
»Problemkühen«  wird  Willi  Lacken¬ 
bauer  häufig  um  Rat  gefragt.  Er  hilft 
herauszufinden,  was  bei  Kühen 
nicht  stimmt,  die  ihr  Kraftfutter  nicht 
aufgebraucht  haben.  »Ich  brauche 
Angaben,  was  und  wieviel  die  Kuh 
täglich  frißt.  Daraufhin  berechne 
ich,  von  welchem  Stoff  sie  zuviel 
oder  zuwenig  genommen  hat.  Eine 
Berechnung  der  Futterration  dauer¬ 
te  im  Normalfall  etwa  zwanzig  Minu¬ 
ten.  Das  war  mir  irgendwann  zu 
langweilig,  denn  ich  brauche  die  Er¬ 
gebnisse  möglichst  rasch  für  das  ei¬ 
gentliche  Beratungsgespräch.«  Wil¬ 
li  Lackenbauer  griff  auf  die  Elektro¬ 
nik  zurück:  Im  Juli  letzten  Jahres 
kaufte  er  sich  einen  C  64  mit  Kasset¬ 
tenrecorder,  Für  die  Grundausstat¬ 
tung  reichte  ihm  zunächst  ein  Fern¬ 
seher  zur  Datenausgabe.  Die  erste 
Zeit  war  nicht  besonders  rosig:  Pro¬ 
bieren  und  Üben  standen  auf  dem 
Programm  —  denn  mit  der  bekann¬ 
ten  Versuchs-und-Irrtums-Strategie 
kam  er  besser  mit  seinem  Computer 
zurecht  als  durch  den  »Ratgeber« 
Handbuch.  Im  Januar  erweiterte  der 
inzwischen  versierte  Hobby-Pro¬ 
grammierer 
mit  einem 


KjJJJ 


So  machen’s  andere 


C  64 


Überarbeiten  der  Listings  wesent¬ 
lich  schneller  als  am  Bildschirm. 
Kurze  Zeit  später  war  auch  das  erste 
Programm,  die  »Rationsberechnung 
für  Milchkühe«,  fertig. 

Seither  ist  der  C  64  ein  unentbehr¬ 
licher  Assistent  für  Willi  Lackenbau¬ 
er:  »Umständliches  Heraussuchen 
von  Tabellenwerten  kenne  ich  nicht 
mehr.  Das  Multiplizieren  der  Daten 
mit  der  Futtermenge  und  das  Addie¬ 
ren  von  Spalten  erledigt  der  Com¬ 
puter  in  Windeseile.  Mit  der  Daten¬ 
eingabe  dauert  eine  Rations-Be¬ 
rechnung  jetzt  nur  noch  knapp  zwei 
Minuten.  Das  ist  ein  Zehntel  der  Zeit, 
die  ich  früher  brauchte.« 

Aus  den  Ergebnissen  kann  Willi 
Lackenbauer  wichtige  Schlüsse  zie¬ 
hen:  »Ein  Eiweißüberschuß  oder 
das  Verhältnis  der  Mineralstoffe  im 
Futter  sind  Hinweise  auf  Fruchtbar¬ 
keitsstörungen.  Und  eine  unfrucht¬ 
bare  Kuh  gibt  auch  keine  Milch.  So 
merkwürdig  sich  das  anhört,  diese 
Störungen  lassen  sich  unter  Umstän¬ 
den  durch  billigeres  Energiefutter 
ausgleichen.  Medikamente  oder 
teures  Kraftfutter  sind  oftmals  gar 
nicht  nötig«. 

Neben  seiner  Berater-Tätigkeit 
kümmert  sich  Willi  Lackenbauer 
auch  um  den  Nachwuchs.  Er  ist  Leh¬ 
rer  an  einer  landwirtschaftlichen 
Fachschule.  Sein  Programm  setzt  er 
natürlich  auch  im  Unterricht  ein.  Bei 
Klassenarbeiten  zum  Thema  Futter¬ 
rationen  müssen  die  Schüler  zeigen, 
daß  sie  Futtermengen  für  Milchvieh 
selbst  zusammenstellen  und  be¬ 
rechnen  können.  Heute  kann  der 
Lehrer  jedem  seiner  Schüler  indivi¬ 
duelle  »Problemkühe«  auf  dem  Pa¬ 
pier  vorsetzen.  Die  Korrektur  der 
Arbeiten  ist  mit  dem  C  64  ein  Kin¬ 
derspiel:  Binnen  zwei  Minuten  weiß 
er,  ob  die  jeweilige  Berechnung 
richtig  ist.  Vorher  wäre  es  unmöglich 
gewesen,  bei  jedem  Schüler  andere 
Aufgaben  zu  überprüfen. 

»So  wie  ich  als  Berater  und  Lehrer, 
kann  jeder  Milchviehhalter  eine 
Menge  Zeit  sparen.  Der  Computer 
ist  ohne  Zweifel  eine  lohnenswerte 


Anschaffung.  Die  Futterrationen 
müssen  nämlich  nicht  nur  bei  Pro¬ 
blemkühen  berechnet  werden,  son¬ 
dern  bei  jedem  Wechsel  des 
Grundfutters.  Das  hängt  von  der  Jah¬ 
reszeit  ab.  Einmal  ist  es  frisches 
Gras,  dann  Heu  oder  Futter  aus  dem 
Silo,  Wer  eine  optimale  Fütterung 
betreiben  will,  muß  enorm  viel  Zeit 
für  Rechnerei  opfern.  Bei  nur  fünfzig 
Kühen  im  Stall  sind  das  schon  500 
Stunden  im  Jahr.  Mit  dem  Computer 


hat  er  —  bei  dreimaligem  Wechsel 
des  Grundfutters  im  Jahr  eine  Men¬ 
ge  Zeit  gespart.«  Willi  Lackenbauer 
ist  überzeugt,  daß  jeder  Landwirt 
nach  kurzer  Einarbeitung  mit  dem 
Programm  umgehen  kann.  Er  hat 
auch  schon  die  ersten  Belege  dafür. 
Zwei  Betriebe  setzen  sein  Pro¬ 
gramm  seit  etwa  einem  halben  Jahr 
ein  und  haben  seither  die  Fütterung 
fest  im  Griff.  Futtervergeudung  ge¬ 
hört  dort  der  Vergangenheit  an. 

Das  Programm  »Rationsberech¬ 
nung  für  Milchkühe«  ist  in  Basic  für 


den  C  64  geschrieben.  Es  benötigt 
etwa  15  KByte  Speicherkapazität. 
Auf  PEEKS  und  POKES  wurde  ver- 


Grundausstattung  für 
weniger  als  1 000  Mark 

zichtet,  um  eine  Übertragung  auf 
den  kleineren  Bruder  des  C  64,  den 
VC  20  zu  erleichtern.  Als  Speicher¬ 


medium  wurde  —  aus  Kostengrün¬ 
den  —  ein  Kassettenrecorder  ge¬ 
wählt.  Wer  auf  Ausdrucke  keinen 
Wert  legt,  bleibt  bei  den  Hardware¬ 
kosten  unter  1000  Mark.  Das  Pro- 
grammlisting  kann  bei  der  Redak¬ 
tion  angefordert  werden. 

Die  Bedienung  ist  wirklich  kinder-l 
leicht.  Nach  dem  Erscheinen  des  Ti¬ 
tels  werden  zunächst  Name  und 
Adresse  abgefragt,  Diese  Eingabe 
ist  kein  Muß  —  sie  kann  auch  über¬ 
gangen  werden.  Dann  erscheinen 
drei  mal  fünfzehn  Grundfuttermittel 


ifp 
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auf  dem  Bildschirm  in  folgender 
Reihenfolge:  Grünfutter,  Silagen 
(Futter  aus  dem  Silo),  Heu  und  Stroh. 
Hier  muß  die  Menge  des  ausge¬ 
wählten  Futtermittels  in  Kilogramm 
eingegeben  werden.  Fehleingaben 
können  korrigiert  werden.  Zum  Ab¬ 
schluß  erscheint  die  emgegebene 
Tagesration  für  jede  Kuh.  Mit  »N« 
kann  man  an  den  Anfang  zurückge¬ 
hen.  Sind  alle  Eingaben  bestätigt, 
erscheinen  nach  kurzer  Rechen¬ 
dauer  die  Inhaltsstoffe  und  der 
Milcherzeugungswert  der  Ration. 
Nun  kann  mit  Kraftfutter  ausgegli¬ 
chen  oder  aufgebaut  werden.  Die 
Menge  wird  wiederum  in  Kilo¬ 
gramm  eingegeben.  Als  endgülti¬ 
ges  Ergebnis  erscheint  nun  die  Ge¬ 
samtration. 


Hemmschwellen  sind 
schnell  überwunden 


Rationalisierung  und  vernünftiges 
Wirtschaften  ist  einer  der  wichtig¬ 
sten  Grundsätze,  die  Willi  Lacken¬ 
bauer  in  Theorie  und  Praxis  vermit¬ 
teln  muß  und  will.  Und  so  gab  er  sich 
nicht  mit  einem  einzigen  Programm 
zufrieden.  Mittlerweile  kann  er  mit 
seinem  C  64  auch  die  Fütterung  von 
Schweinen,  egal  ob  zur  Zucht  oder 
zur  Mast  im  Stall,  optimieren.  Auch 
bei  der  Berechnung  von  Deckungs¬ 
kosten  und  Gewinn  eines  landwirt¬ 
schaftlichen  Betriebes  assistiert  der 
Computer  mit  einem  entsprechen¬ 
den  Programm. 

Willi  Lackenbauer  glaubt,  daß 
Computer  in  der  Landwirtschaft  in 
Kürze  einen  festen  Platz  haben  wer¬ 
den:  »In  wenigen  Jahren  wird  der 
Transponder  in  vielen  Boxenlauf¬ 
ställen  zum  Standard  gehören.  Jun¬ 
ge  Landwirte  bekommen  bereits  in 
ihrer  Ausbildung  den  ersten  Kontakt 
zu  Computern.  Hemmschwellen 
werden  dadurch  schnell  abgebaut. 
Fütterungsprogramme,  die  auf  ei¬ 
nem  preiswerten  Heimcomputer 
wie  dem  C  64  laufen,  werden  sich 
mit  Sicherheit  durchsetzen.  Für  den 
Berater  ist  es  auch  besser,  seine  Zeit 
effektiver  als  für  schematische  Be¬ 
rechnungen  zu  nutzen.«  Der  compu¬ 
terbegeisterte  Berater  und  Lehrer 
plädiert  für  Programme,  die  einfach 
und  nachvollziehbar  landwirtschaft¬ 
lichen  Betrieben  Routinearbeiten 
abnehmen.  »Die  eingesparte  Zeit 
kann  viel  sinnvoller  zur  Beobach¬ 
tung  und  Betreuung  der  Tiere  ge¬ 
nutzt  werden,  denn  das  kann  kein 
Computer  dem  Landwirt  jemals  ab¬ 
nehmen.«  (Willi  Lackenbauer/kg) 


Fehler- 

teufeldien 


Dieses  Mal  ist  es  mir  ge¬ 
lungen,  mich  mit  dem 
Drucker  zu  verbünden!  So 
konnte  ich  Ihnen  auch  in  den 
Ausgaben  6  und  7  das  Leben 
(Eintippen)  schwermachen. 

Listing  Quicktext  6/84,  Seite  60 

Da  der  Epsondrucker  kei¬ 
nen  Pfeil  links  und  Pfeil  nach 
oben  versteht,  muß  das  Zei¬ 
chen  » _ « dui-ch  Pfeil  links  er¬ 

setzt  werden. 

Listing  Kurvendiskussion  7/84,  Seite 
116 

In  diesem  Listing  muß  das 
Zeichen  "  durch  Pfeil  nach 
oben  ersetzt  werden.  In  der 
Zeile  316  muß  das  zweite 
PRINT  um  #4  ergänzt  wer¬ 
den.  Die  Zeile  266  fehlt  nicht. 

Listing  Hardcopy  1520  7/84,  Seite 
108 

Auch  hier  muß  das  Zeichen 
~  durch  Pfeil  nach  oben  (Po¬ 
tenz)  ersetzt  werden. 

Listing  Softwarekatalog  7/84,  Seite 
72 

Listing  Q-Bernd  7/84,  Seite  142 

In  diesen  Listings  muß  der 
reverse  Querstrich  durch  das 
reverse  Pfund-Zeichen  (Far¬ 
be  Rot)  ersetzt  werden. 

Testbericht  »Daten  gut  im  Griff«  Aus¬ 
gabe  5/84,  Seite  52 

Datamat:  Entgegen  frühe¬ 
ren  Angaben  wird  die  neue 
Datamatversion  nicht  für  zir¬ 
ka  25  Mark  umgetauscht.  Der 
Umtauschpreis  beträgt  jetzt 
50  Mark. 

Multidata:  Zwei  Tage  nach 
dem  das  64'er-Magazin  mit 


diesem  Testbericht  erschie¬ 
nen  war,  mußte  ich  feststel¬ 
len,  daß  meine  Angaben 
nicht  ganz  stimmten.  Multida¬ 
ta  ist  doch  nicht  so  absturzsi¬ 
cher  wie  ich  geschrieben  ha¬ 
be.  Man  kann  bei  bestimmten 
Abfragen  das  Programm 
durch  falsche  Eingaben  zum 
Absturz  bringen. 

Weiterhin  sollte  man  es  ver¬ 
meiden,  sich  einen  anderen 
Monitor  als  den  von  Commo- 
dore  anzuschaffen,  denn 
durch  die  etwas  merkwürdi¬ 
ge  Farbauswahl  ist  die  Schrift 
sonst  kaum  noch  zu  lesen. 

Listing  »Terminalprogramm«  7/84, 
Seite  24 

Leider  sind  bei  diesem 
Programm  die  beiden 
»Wandler-Programme«  nicht 
mit  abgedruckt  worden. 
Hier  nun  die  Ergänzung. 
Programm  ”  WANDLER”: 
60000  PRINT ”(rev.Herz)(rev. 
Q)”:  SYS16964:PRINT"RUN 
60020” 

60010  PRINT"(rev.S)":END 
60020  PRINT'  '(rev.Herz)(rev. 
Q  2x)”:SYS16970: 

PRINT'  'RUN60020” 

60030  PRINT”(rev.S)" 
Programm  ” WANDLER  2”: 
60000  PRINT' '(rev.Herz)(rev. 
Q  2x)”:SYS16964: 
PRINT”RUN60020” 

60010  PRINT' '(rev.Herz)" : 
POKE631.13: 

POKE632.13 
60015  POKE198,2:END 
60020  PRINT' ’(rev.Herz)(rev. 
Q  2x)":SYS16964:PRINT 
"RUN  60020  ” 

60025  POKE198,2:END 
60030  PRINT' ’(rev.Herz)” 
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Wettbewerb 


Programmierwettbewerb:  Der  beste  Einzeiler 


Anwendung  des  Mo¬ 
nats,  was  ist  das?  Nun,  Sie 
haben  einen  Comrnodore 
64  oder  einen  VC  20  und 
versuchen  diesen  irgend¬ 
wie  sinnvoll  einzusetzen. 
Unter  einer  sinnvollen 
Anwendung  versteht  die 
64'er  Redaktion  alles,  was 
beispielsweise  Program¬ 
me  im  häuslichen  Bereich 
bewirken.  Es  kann  sich 
dabei  um  die  Berech¬ 
nung  der  Benzinkosten 
für  Ihren  Wagen  handeln, 
um  ein  eigenes  Textverar- 
beitungsproyramm  ge¬ 
hen,  sich  um  die  Verwal¬ 
tung  Ihrer  Tiefkühltruhe 
drehen  oder  ein  ausge¬ 
klügeltes  Telefon  und 
Adreßregister  sein. 

Setzen  Sie  Ihren  VC 
20/C  64  mehr  oder  weni¬ 
ger  beruflich  ein?  Auch, 
oder  vor  allem,  das  ist  ei¬ 
ne  sinnvolle  Anwendung. 
Sie  führen  die  Lohn-  und 
Cehaltsabrechnung,  Ihre 
Lagerverwaltung,  die  Be¬ 
stellungen  auf  einem 
Commodore-Heimcom- 
puter  durch?  So  spezielle 
Anwendungen  wie  die 
Berechnung  der  Statik 
von  selbstgezimmerten 
Regalen,  von  Klimadia¬ 
grammen  oder  Vokabel  - 
lernprogrammen  für  den 
Schulunterricht  oder  die 
Zinsberechnung  bei  Kre¬ 
diten  sind  ebenfalls  The¬ 
men,  die  mehr  als  konkur¬ 
renzfähig  sind. 

Uns  ist  die  Anwendung 
des  Monats 


wert. 

Schreiben  Sie  uns,  was 
Sie  mit  Ihrem  Computer 
machen: 

Redaktion  64!er,  Aktion: 
Anwendung  des  Monats, 
Hans-Pinsel-Str.  2,  8013 
Haar  bei  München. 


Sie  haben  richtig  gelesen. 
Gesucht  wird  der  beste  Ein¬ 
zeiler.  Auf  jeden  Fall  darf  es 
nur  eine  Basiczeile  sein,  in 
der  Ihre  Idee  »Raum«  fassen 
soll. 

In  der  Kürze  liegt  die  Wür¬ 
ze,  meinen  wir.  Probieren  Sie 
das  einmal  aus.  So  schwer 
kann  es  ja  nicht  sein,  eine 
einzige  Zeile  auf  Papier  zu 
bringen. 

Aber  bedenken  Sie  bitte: 
Die  Konkurrenz  wird  groß 
sein.  Jetzt  werden  sich  sogar 
die  Spitzenkönner,  die  sonst 
zu  faul  sind,  ellenlange  Pro¬ 
gramme  zu  schreiben,  hin¬ 
setzen  und  nachdenken.  Al¬ 
so  gehen  Sie  nicht  leichtfer¬ 
tig  mit  der  einen  Zeile  um. 
Vielleicht  fragen  sich  einige 


von  Ihnen,  was  man  denn 
wohl  besonders  Geistrei¬ 
ches  in  eine  einzige  Pro¬ 
grammzeile  setzen  kann.  Ein 
Beispiel  dazu.  Uns  flatterten 
schon  Programme  auf  den 
Tisch,  die  eine  Dezimalzahl 
in  eine  Hexadezimalzahl  um¬ 
wandelten.  Manche  von  Ih¬ 
nen  benötigten  irre  viel  Pro¬ 
grammspeicherplatz.  Die¬ 
ses  Problem  läßt  sich  aber 
auch  in  einer  einzigen  Zeile 
lösen!  Stellen  Sie  sich  vor,  so 
ein  Einzeiler  wird  Listmg  des 
Monats... 

Seien  Sie  also  kreativ. 
Scheuen  Sie  keine  Tippar¬ 
beit,  denn  Sie  werden  eine 
Menge  Papier  verschwen¬ 
den,  bis  Sie  eine  akzeptable 
Idee  verwirklicht  haben. 


Schicken  sie  keine  Kasset¬ 
te  oder  Diskette  mit  dem 
»Programm«  ein.  Schreiben 
Sie  Ihre  Lösung  einfach  auf 
ein  Blatt  Papier,  dazu  eine 
ausführliche  Beschreibung. 
Sie  wissen  schon,  mit  Defini¬ 
tion  der  verwendeten  Varia¬ 
blen  und  so  weiter.  (Ein  Fluß¬ 
diagramm  oder  Strukto- 
gramm  muß  nicht  unbedingt 
sein.)  Und:  Vergessen  Sie  die 
Adresse  auf  Ihrer  Lösung 
nicht.  Senden  Sie  Ihren  Ein¬ 
zeiler  dann  an: 

Markt  &  Technik  Verlag 
Redaktion  64'er, 
Programmier  Wettbewerb: 
Einzeiler 

Hans-Pinsel-Str.  2, 

8013  Haar  bei  München 


Einmal 

im  l^onat  gibt  es  die 

SUPERCHANCE 


Diese  nicht  einmalige  Gele¬ 
genheit  sollten  Sie  nutzen.  Wie? 
Schicken  Sie  uns  Ihr  bestes, 
selbst  erstelltes  Programm.  Bei 
der  Art  des  Programms  sind  wir 
nicht  wählerisch. 

Sie  haben  ein  sehr  gutes 
(Schieß-,  Knobel-,  Denk-,  Action- 
Abenteuer-)  Spiel  geschrieben: 
einschicken! 

Sie  verfügen  über  ein  komforta¬ 
bles  Disketten-Kopier-(Sortier-)- 
Programm  mit  einigen  außerge¬ 
wöhnlichen  Leistungsmerkma¬ 
len:  einschicken! 


Sie  haben  das  Basic  um  einige 
sinnvolle  Befehle  erweitert:  ein¬ 
schicken! 

Sie  arbeiten  mit  einem  selbster¬ 
stellten  Textverarbeitungspro¬ 
gramm,  einer  eigenen  Tabellen¬ 
kalkulation,  einem  semiprofes¬ 
sionellen  Datenverwaltungspro¬ 
gramm:  einschicken! 

Sie  zeichnen  und  konstruieren 
mit  einem  selbsterstellten  Pro¬ 
gramm  in  hochauflösender  Gra¬ 
fik:  einschicken! 

Wir  freuen  uns  über  jeden  Bei¬ 
trag  und  honorieren  mit  bis  zu 


2000  Mark 

für  das  Listing  des  Monats 


Aus  den  besten  Listings,  die 
veröffentlicht  werden,  sucht  die 
64’er-Redaktion  einmal  im  Monat 
das  »Listing  des  Monats«  aus.  Alle 
Listings,  die  im  64’er  abgedruckt 
sind,  werden  mit  100  bis  300  Mark 
honoriert.  Die  genaue  Vorge¬ 


hensweise  beim  Einsenden  von 
Listings  ist  in  »Wie  schicke  ich 
meine  Programme  ein?«  Ausgabe 
4/84  beschrieben: 

Schicken  Sie  Ihr  Listing  an: 
Redaktion  64'er,  Superchance: 
Listing  des  Monats,  Hans-Pinsel- 
Str.  2,  8013  Haar  bei  München. 
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Fortsetzung  von  Seite  54 

wenn  ein  entsprechendes 
Ladeprogramm  oder  das 
Pascal  selbst  (G-Pascal)  vor¬ 
handen  ist.  Betrachtet  man 
die  reine  Compilieizeit,  so 
schneidet  das  G-Pascal  bei 
weitem  am  besten  ab. 

KMMM-Pascal 
schnell  und  mit 
gutem  Editor 

Bezüglich  der  Ablaufge¬ 
schwindigkeit  ist  die  Sache 
klar:  Das  KMMM-Pascal  und 
das  neue  Pascal  64  V3.0  sind 
klar  die  schnellsten  (über 
das  Oxford  Pascal  ist  hierzu 
noch  nichts  bekannt).  Ich  be¬ 
nutze  das  KMMM-Pascal, 
denn  für  den  engagierten 
Pascal-Anwender  gibt  es  au¬ 
ßerdem  immer  noch  unbe¬ 
quemen  Pascal  64  V3.0  auf 
dem  Commdore  64  bis  heute 
noch  nichts  besseres,  ob¬ 
wohl  wahrscheinlich  das  Ox¬ 
ford  Pascal  in  näherer  Zu¬ 
kunft  eine  Leaderstellung 
erreichen  wird,  außer  man 
will  sich  die  CP/M-Karte  kau¬ 
fen,  Hat  man  einmal  das  Pro¬ 
blem  mit  dem  Diskettenfor¬ 
mat  gelöst,  dann  ist  aller¬ 
dings  die  Frage  nach  einem 
geeigneten  Pascal  akade¬ 
misch.  Das  KMMM-Pascal 
kostet  in  der  Schweiz  zirka 
280  SFr.,  das  Oxford  Pascal 
zirka  190  SFr.,  was  im  Ver¬ 
gleich  zu  den  anderen  Ver¬ 
sionen,  bis  auf  das  neue  Pas¬ 
cal  64  V3.0,  dessen  Preis 
auch  99  Mark  sein  wird,  et¬ 
was  hoch  erscheinen  mag. 
Falls  diese  Preise  dem  Ein¬ 
steiger  zu  hoch  sind,  dann 
kann  ich  ihm  höchstens  noch 
das  G-Pascal  empfehlen, 
weil  es  dem  Anfänger  wohl 
eher  auf  leichte  Editierbar- 
keit  ankommt,  als  auf  ein 
möglichst  komplettes  Pascal 
(Pascal  64  V3.0),  das  ihm  die 
übrigen  Versionen  sowieso 
auch  nicht  bieten  können. 
Ein  Pascalsystem  sollte  eben 
nicht  nur  aus  einem  Compi¬ 
ler  (Data  Becker  Pascals)  be¬ 
stehen,  sondern  auch  einen 
guten  Editor  (KMMM- 
Pascal,  G-Pascal,  Oxford- 
Pascal)  besitzen,  womit  man 
frustrationslos  und  einfach 
Sourcefiles  erstellen  kann. 
Pascal  ist  eben  (leider!!)  eine 
Compilersprache. 

(Martin  Baur) 
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anleitung  für  ein 
Zwischenschaltgerät,  das  automa¬ 
tisches  Abheben  und  einen  Wählautomaten 
B  beinhaltet. 


Die  Musik 
macht  der  C  64 

Eine  herausragende 
Eigenschaft  des  Commo- 
dore  64  sind  seine  Mu¬ 
sikfähigkeiten.  Es  gibt 
mittlerweile  eine  Viel¬ 
zahl  von  Musikprogram¬ 
men  und  Keyboards,  die 
den  Synthesizer  im 
C  64  ausnützen. 
Wir  stellen  die  wichtig¬ 
sten  Musikprogramme, 
ihre  Leistungen  und 
Schwächen  und  einige 
Anwendungen  vor. 


Den  wh 
besten 
üations- 
für  den 
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schnellste  Kopier¬ 
programm  für  den  C  64 

Das  hat  es  noch  nicht  gegeben: 
Durch  Quickcopy  wird  eine  voll  ge¬ 
füllte  Diskette  inklusive  Formatieren 
in  2.5  Minuten  (2  Laufwerke)  oder  3.5 
Minuten  (1  Laufwerk)  kopiert.  Bei 
nicht  ganz  gefüllter  Diskette  geht  es 
entsprechend  schneller. 

Zwei  neue  Kurse 

Endlich  ist  es  soweit  !  In  der  näch¬ 
sten  Ausgabe  starten  wir  unseren 
großen  Assembler-Kurs  für  C  64  und 
VC  20.  Steigen  Sie  ein  in  die  Welt  der 

Maschinensprache-Programmie¬ 
rung  —  auch  wenn  Sie  bisher  aus¬ 
schließlich  in  Basic  programmiert 
haben:  Dieser  Kurs  ist  gerade  für 
den  Anfänger  konzipiert  worden. 

Außerdem  beginnen  wir  mit  dem 
Abdruck  der  mehrteiligen  Serie 
»Der  gläserne  VC  20«.  Endlich  wird 
der  VC  20  auch  für  den  Einsteiger 
durchschaubar  gemacht.  Ob  Be¬ 
triebssystem,  Basic  oder  Grafik  — 
dieser  Kurs  macht  den  VC  20  wirk¬ 
lich  durchsichtig. 


Anwendung  des  Monats 

Passend  zu  unserem  Musik¬ 
schwerpunkt  ein  Programm  das  Ih¬ 
ren  Commodore  64  zur  elektroni¬ 
schen  Orgel  werden  läßt. 


Listing  des  Monats 

»Spring-Vogel«  ist  ein  Spielegene¬ 
rator,  mit  dem  sich  beliebig  viele 
Spielszenen  selbst  erstellen  lassen. 


Listings 


—  Diskverwalter  für  C  64 

—  Ein  deutscher  Zeichensatz  für 
den  VC  20 

—  Spriteaid  und  Screen  Change 
für  den  C  64 

—  Ein  Schiebespiel  für  den  VC  20 

—  List-Stop 

—  RS232-Test 

—  und  wieder  viele  Tips  &  Tricks 
für  VC  20  und  C  64 
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